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ABSTRACT 

This Memorandum describes a computer program tor 
calculating, except for facilities, the required resources and 
related costs ot formal advanced pilot training courses* Facilities 
are assumed to be inherited and hence are treated as sunk costs* The 
program is based on a previously presented methodology* The first 
three sections of this MoBorandum deal with a general description ot 
the program and its operations* Specific operating instructions are 
given in Section IV* In conjunction with Section IV, appendices are 
presented showing a listing of all program variables used in the 
calculations, detailed flow charts of the program, and a source 
listing [FORIRAN-IV (IBM 360/365) ] of the program. Program outputs 
are discussed in Section V* For related documents see AC 010 340-392 
and AC 010 344-347. (Author/CK) 
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PREFACE 

In April 1967 » the Office of the Assistant Secretary of Defense 
(Manpower and Reserve Affairs) forme^'! a Pilot Advisory Connmittee to 
study "Pilots as a National Resource." The Committee consisted of the 
Assistant Secretary and a represisntative of each of the three Services. 
Staff members from Rand were invited to attend the early meetings of 
the Committee. The outgrowth vas that the Air Force member requested 
Rand to accept responsibility for examining the Air Force pilot train- 
Jng process. The objective of. the Rand Pilot Training Study was to 
develop a scries of comp' ier models for use in estimating the resources 
required to produce pilots and the costs of training them. Further » 
the models were to be designed for sensitivity analyses and long-range 
planning . 

For the convenience of readers whose interest)? may not extend to 
all aspects of the pilot training process » the results of the study 
are presented in eight volumes, as follows: 

Volume 



1 


RM-6080-FR 


The Pilot Tr&lning Study: 
PILOT Model, by W. E. Moob 


Personnel Flew and 


the 


11 


RM- 6081- PR 


The Pilot Training Study: A User's Guide to 

PILOT Computer Model, by Lois Littleton. 


the 


III 


RM- 6082- PR 


The Pilot Training Study: 
Training, by J. W. Cook. 


Pre - commi 3 a ioni ng 




IV 


RM- 6083- PR 


The Pilot Training Study: A Cost-Estimating 

Model for Undergraduate Pilot Training, by 
S. L. Allison. 




V 


RM- 6084- PR 


The Pilot Training Study; A User's Guide to the 
Undergraduate Pilot Training Computer Cost Model, 
by Lois Littleton. 


VI 


RM- 6085- PR 


The Pilot Training Study: 
ing, by P. J, Kennedy. 


Advanced Pilot Train- 


Vll 


RM- 608 6- PR 


The Pilot Training Study: A Coat-BsMmating 

Model for Advanced Pilot Training, by L. B. 
Koollmeyei • 




Vlll 


RM-6037-PR 


The Pilot Training Study: 


A User 'a Guide to 


the 



Advanced Pilot Training Computer Cost Model (APT), 
by H. B. Boren, Jr, 
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Th'.s [Memorandum, Volurr.c VIII of the series, describes the computer 

* 

program for che Advanced Pilot Training Cost Model (APT), which is de- 
signed to be used for estimating the resoiirces and costs required to 
train pilots in formal advanced courses [Combat Crew Training Schools 
(CCTS), Replacement Training Units: (RTU) , or Transport Training Units 
(T1‘U)]. This model is not designed to cover the types of advanced fly- 
ing training such as proficiency flying, upgrading training, special 
weapons training, and training for miscellaneous types of air-raft for 
which no formal school exists. These types of advanced training ar® 
accomplished in less formal programs after the pilot is initially qual- 
ified to fly the particular aircraft involved. 

The procedures described in this Memorandum may be follow :id with- 
out reference to the other Memorandums in the series. However, for an 
understanding of the purposes for which the cost model was constructed, 
the user will find it useful to read Volumes VI and VII which describe 
Che advanced pilot training (APT) program. It is further suggested 
that the user read Volume I for an understanding of the part that APT 
plays in the total process of training USAF pilots. 



* 

In 

Training 



this Memorandum, the term APT refers to the Advanced Pilot 
Computer Cost Model (program). 
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SUMMARY 

This Memorandum describes a computer program (APT) for calculating, 
except for facilities, the required rescurees and related costs of for'- 
mal advanced pilot training courses. Facilities are assumed to be in- 
herited and hence are treated as sunk costs. Th^ program is based on 
the methodology presented In RAND Memorandum RM-6086-PR cited in the 
Preface . 

The first three sections of thlo Memorandum deaJ with a general 
description of the program and its operations. Specific operatiiig in- 
structions are given In Section IV. In conjunction with Section IV, 
appendices are presented showing a listing of all program variables 
used in the calculationa , detailed flow charts of the program^ and a 
source llstlnj] [fORTRAN-IV (IBM 360/65)] of the program. Program out- 
puts are discussed in Section V. 
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I , IKTRODUCTION 



The APT computer program computes the required resources and at- 
tendant costs for Advanced Pilot Tralntngp given such basic inputs a«. 
syllabus requirements and numbers of students entering APT from duty 
assignments Involving similar aircraft, from duty assignments Involving 
dissimilar aircraft, from desk Jobs, and from undergraduate pilot train- 
ing (UPT). All required facilities (the physical plants) are assumed 
to be Inherited and are treated as sunk costs. Hence, the calculation^ 
do not Include any facility construction costs. 

Long and short courses are available In this program for each air- 
craft system. The long course is for students from dissimilar aircraft, 
from UPT, and from desk jobs, for whom more extensive training Is re- 
quired. The short course is for students from similar types of aircraft. 
For any aircraft system, the program deals with as many as five cate- 
gories of equipment, namely, three types of training aircraft, simulators, 
and trainers. 

The information presented in this Memorandum is supplementary to 

if 

that presented In RM- 6086- PR. That publication describes In detail the 
methodology employed In the APT model. Since the APT program was de- 
veloped to reflect explicitly that methodology, a detailed llne-by-llne 
description of the program Is not considered to be necessary. Instead, 
this Memorandum deals with a general description of the computer pro- 
gram (Section II) I program considerations (Section III), Input proce- 
dures (Section IV), and program outputs (Section V). 

The APT computer program Is written completely In FORTRAN- IV for 
use on the RAND IBM 360/65 computer system and Is totally self-contained. 
Except for the standard Input/output devices, it does not require any 
auxiliary tapes or disks and does not use any auxiliary programs. As 
a result, It should be adaptable to other computer systems. 



See Preface. 
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A llstlnf^ of all variables used lu the program calculations Is 
given in Appendix A. Detailed flow charts showing each step of the 
program are present - in Appendix Bi Finally, the FORIUAN-IV source 
program Is listed in App\.ndix C. 
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II. GENERAL DESCRIPTION 



OPE RATION 

The AFT conputer program Is structured so that a single sess: 
on the computer will process as many runs as desired, or as time per- 
mits. Each run consists of one or more weapon systems for one or more 
years of operation. The program prints the results by weapon system 
for one year at a time. A run may comprise as many weapon systems and 
years as the user desires or, again, as time permits. A major feature 
of the APT program is that, within a run, once a complete set of Inputs 
is entered for the first year of the first weapon system, only changes 
In those inputs need to be Wintered for succeeding years and for succeed- 
ing weapon systems. Hence, the program la highly suited to sensitivity 
analyses In which one may wish to determine the effect of Input variations. 

One pass Is made through the program for each year of each weapon 
system. Thus, if a run were to consist of 10 weapon systems and IS 
years for each weapon system, 150 passes would bt made through the pro- 
gram for that run. Each pass requires approximately 0.25 second (360/65 
central procesalng unit time), depending on some of the options exer- 
cised by the user. For each pass, the relevant resources and coats arc 
calculated and printed In prescribed formats. In addition, two optional 
printouts are provided for printing the values of the variables used 
In the program. 

Eecauae of the repetitive nature of many of the calculations, one 
subscripted variable (F) is used for all program variables so that such 
calculations are made with only one set of equations with variable- 
subscripted parameters. Thus, through use of DO- loops In the program, 
the machine goes through r^uch calculations as many times as required, 
using the one set of equations and each time Increaalng, in prescribed 
increments, the appropriate parameter subscripts. This approach re- 
duces the size of the program. In terms of both the FORTRAN instrucclons 
and the Common Block listing of the variables. 
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The F variable used in the program Is dimensioned 310, which al- 
lows for both the Input and output data, An optional printout is pro- 
vided for listing the F array In tabular form. This listing is labelled 
^Common Dump*’’ It lnc‘’udes the value of each F variable and the cor- 
responding subscript. Such a listing may be exceedingly useful in the 
analysis of various runs .since much of the data--particularly numbers 
generated in the form of intermediate calculatlons--do not appear on 
the output pages. With the aid of the Common Dump and the variable 
listing (Appendix A), which also lists the subscript (called address) 
of each F variable, the user can find the value for any subscript so 
listed--hence any input or output variable. The Conmon Dump is actu- 
ally a permanent record of the values of ?,11 of the F variables for any 
pass through the program. 

An alternative method Is provided for printing out values of the 
F variables used in the program, in which the address, name, and value 
of the variable are listed on one line. This option has the advantage 
of providing complete Information to the user concerning the F vari- 
ables he selects to be listed. Another advantage is that the user may 
select only the variables he desires to be listed. A disadvantage la 
that more pages of output may be required, depending on tne number of 
variables listed. For example, If all 310 varlablee are listed, six 
pages are required compared with only one page for the Common Dump 
listing of all variables. Also, this option requires that all 310 cards 
containing the F-variable listing must be entered as Input data. 

As stated previously, this model applies only to pilots who are 
trained In formal Advanced Pilot Training Schools, The pllotp for whom 
this model Is not applicable may be grouped into two categories: those 

who are not trained formally in advanced pilot schools and those who 
are .rained, as required, In small numbers, A substantial number of 
aircraft types is involved In this group of pilots for which either 
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valld coat data ire not available or uae of the model Is not practical. 
However, the percentage of such aircraft Is relatively small (approxi- 
mately 7 percent of the total aircraft inventory). 

If, for a single computer run, the user wishes to account for all 
pilots trained, Including those whose costs are not computad In this 
model, he may do so by applying the zero-output designator to this lat- 
ter group of pilots. Then, the costs and resources required will be 
printed for all weapon systems except those for which the zero-oucput 
designator Is used. For each of those, the only output Is the number 
of graduates. 

An option is provided the analyst for calculating the number of 
simulator maintenance and operating personnel. This value may be cal- 
culated either as a function of the number of simulators required or 
as a function of the total number of student simulator hours charged 
to pilot training. This Is done automatically In the program by using 
the magnitude of the Input variable relating to the number of simulator 
operating and maintenance personnel authorized. If this value is equal 
to, or greater than, 1.0, It is treated as an authorized number per 
simulator. If the value Is less than 1.0, it Is treated as an author*' 
Ized number per simulator hour* Hence, depending on Its magnitude, 
this input variable Is multiplied by either the number of simulators 
required or the number of student simulator hours charged to pilot train- 
ing to give the number of simulator maintenance and operating personnel. 

Finally, an option Is provided for setting all input F variables 
to zero. Normally, for each run the values of these variables are re- 
tained from pass to pass so that, as sta;:ed previously, the user only 
has to enter changes Iti the inputs. How-iver, there may be occasions 
for the user to zero all Inp* variables so that he can start a new pass 
with all variables set to zero. Tills may occur when many years or many 
weapon systems, or both, have been run, and the user finds It difficult 
to keep track of the current values of some of the Input variables. 
Initially, all F variablcs--lnput and output-'-are set tc zero; then, 
at the start of succsedlig passes through thi program, most of the out- 
put variables are set to zero. 
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A summary of the designators used to exercise the various program 
options Is given In Table 1. 
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Table 1 

PROGRAM OPTIONS 



Designator 


Variable 


Description 


Dump pri^^tout 


F(117) 


0, — Do not print Common Dump 
1,0--Print Common Dump 


Zero-output 


F(118) 


0, --Do not omit all calculations 
except number of graduates 






1,0 — Omit all calculations except 
number of graduates 


Clear 


F(119) 


0, --Do not zero a)l input variables 






l,0--Zero all input variables after 
printout 


Weapon system 
variable- 
listing 


F(120) 


0, --Variable addresses, names, and 
values not to be listed 

1,0 — Variable addresses, names, and 
values to be listed for this 
pa^s through program. F(120) 
is then set to zero. 


Variable -Its ting 
read (Constant 
input data) 


F(141) 


0, --Addresses and names of all 
variables not to be read 

1 • 0--Addresses and names of all 
variables to be read once 


Simulator operating 
and maintenance 
personnel authorized 


F(071) 


^1.0--Per simulator required 
<1.0--Per simulator hour 




If) 
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III . PROGRAM CONSIDERATIONS 



FLOW OF O PE RATIONS 

Figure 1 Is a flow chart showing the general flow of operations 
through the program. These operations are described in this section. 

Initially, all input F variables in Common are set to zero. Sev- 
eral other internal indexes are also initialized (for example, page 
number). Next, a title card is read which contains the general title 
for the entire run. The constant input data [f( 12 1) . , ,F(141) ] , ex- 
cluding F(135), are then entered. These values are referred to as con- 
stant input data because they are usually constant for a run or runs 
and do not vary with weapon system or y^ar. However, if the need 
arises, any of them may be treated as a weapon system Input and entered 
as such for any pass through the program. Next, the title and page 
number are printed on a nev? page. 

If, for at least one of the passes through the program, the user 
will require a listing of the addresses, names, and values of the vari- 
ables, he must enter a 1.0 for the "read” designator In the constant 
input data [f(I 41) = l.O]. If this is done, the machine then reads in 
the complete listing of all of che program variables (310 cards) so 
that the addresses and names are stored as alphanumeric information 
for subsequent printouts. This listing Is read in only once. On the 
other hand, if this designator Is not entered with a value of 1,0 in 
the constant Input data, the variable listing of 310 cards must not be 
entered. Next, the current equipment Inventories are set to zero* For 
subsequent years of the same weapon system, these values are not set 
to zero but are updated by adding to them the equipment to be procured 
and, in the case of aircraft, subtracting the attrition aircraft. They 
are reset to zero for each new weapon system. All calculations pertain- 
ing to equipment resources, including costs, are always performed through- 
out the program in order of aircraft types I, 2, and 3 (as applicable); 
simulators; and trainers. 

After the equipment Inventories are se to zero and other tnil-ial- 
1 cat ion is completed, the weapon system number and name are read on a 
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Flg. l--Flow of operations 
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separate card. At this point all of the output variables are set to 
zero except for the current equipment inventories and various personnel 
changes. The remaining major operations involve calling the subroutines 
to perform their specified tasks. First, subroutine READ is called to 
read in the weapon system input data [f( 002 . . .F(120) , F(135), F(142)... 
F(145), F(217) . . .F(219)]. Subroutine EQUIP is then called to calcu- 
late the various training hours and equipment requirements. Also, the 
number of graduates, the average number of students per year, and the 
average student loads are calculated in this subroutine since they are 
required for subsequent calculations in the same subroutine. Equipment 
inventories are then updated in subroutine EQUIP. 

Subroutine PERS is called next to determine all of the personnel 
requirements including the incremental changes from year to year, re- 
quired for certain calculations. All of the instructor, maintenance, 
administrative, and support personnel are determined in this subroutine, 
These people are further categorized into rated officers, non- rated 
erf leers, airmen, and civilians. 

Following the personnel calculations, subroutine IFCO Is called 
to determine the Investment costs charged to pilot training. In like 
manner, subroutine OPCX) is called to determine the operating costs anc. 
also the various total costs required for the output summary. All costs 
are calculated in thousands of dollars except for the operatiiig cost 
per graduate, which Is In dollars. Finally, subroutine OUTPUT is called 
to print the results in prescribed formats. 

Depending on the end-of-data designator and whether all data have 
been processed, the path then returns to some earlier portion of the 
MAIN routine and conrjences the ne\ j pass through the program . If one 
year of a weapon system Is completed with rmre years to follow, the 
path returns to the point at which all of the output variables are set 
to zero. If thi' last year of a weapon system has been completed with 

* 

Initially, all weapon system input variables were intended to be 
F(OOl) . . .F(120) , constant inputs to be F(121. . .F(145) , and all output 
variables to be F( 151 . . ,F{300) . [f( 146). . ,F(149) are Internal Indices.] 

However, as modifications were required, it was necessary to add some 
input variables with it.dexes out of order. This in no way affects the 
operation of entering the data, as will be seen subsequently. 
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more weapon systems to follow for that run, the path returns to the 
point at which the curient equipment inventories are set to zero. If 
the run is completed (with more runs to follow) so that all weapon sys- 
tems have been processed, all of the weapon system inputs are set to 
zero (in subroutine OUTPUT), and the path returns to an initialization 
point (A in Fig. 1) Just before the point where the main title Is read 
for the run. Finally, if all data have been processed for all runs, 
a termination statement Is printed on a ner^ page, and CALL EXIT Is exe- 
cuted by the program ending the job at that point. 
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IV. INPUT PROCEDimES 



GENERAL DESCRIPTION * 

Many different sets of data may be entered into the computer, each 
set representing one year of a weapon system. Thus, there must be as 
many sets of Input data as the product of weapon systems and years. 

The end of each Is signalled by an end-of-data designator. This 
designator is required for identifying whether the set of data consti- 
tutes the end of a year, a weapon system, a run, or all runs. After 
each set of data Is read, all of the computations are performed on that 
set and the results are printed, before the rext set of data is read 
by the machine. 

As was stated previously, the F- variable array used in the prograi 
Is dimensioned 310. The subscripts of F are referred to as addresses 
of F. Since F Is the first array listed in Common, l^s addresses rep- 
resent the relative locations of the subscripted F variables In Common.** 
Thus, F(OOl) represents the first F variable in Common, F(OIO) the 
tenth, and F(310) the 310th in Conmon. (Preceding zeros for the ad- 
dresses have no meaning; they are used merely for convenience so that 
all addresses can be represented by three-digit numbers.) 

Basically, the Input procedures are structureo so that the address 
of F is entered together with the value of the subscripted F as a pair. 
The machine then stores the value In the relative location In Common 
equal to the addvess. For example, If an address of 80 Is entered with 
a value of 0.9, the program performs the following operation: 

F(080) = 0.9. 



INPUT DATA CARDS 



The basic set of data represents one year of a weapon system. The 
first card of the first year of a set of weapon system data must always 



A specific summary on Input data cards and their arrangement for 
one or more runs Is given at the end of this section under Data Card 
A rrangement . 

The F array is listed In Appendix A. 
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be a title caid. This card contains only the number and name of the 
weapon system under consideration. Columns I-? are reserved for the 
optional entry of the weapon system number (integer value). The wea- 
pon system title is read In cols^ !i-44 as alphanumeric Information, 
and the remaining porclon? of the card are not used. The weapon sys- 
tem number Is stored as F(OOl) but is not used currently in the pro- 
gram or printed in the output. After development of the program, it 
was found that the weapon system number could be entered just as easily 
as alphanumeric information in the title portion and printed out as 
part of the title. However, It Is there as F{001) If the user wishes 
to modify the program to mai:e use of it. Hence, there is no require- 
ment to enter a number in cols. 1-2 of this card. 

The cards following the weapon system title card contain the In- 
put data for one or more years of the weapon system. In entering the 
numerical data, eight pairs of F addresses and the corresponding F val- 
ues may be entered on one card. The address of each variable is en- 
tered as an Integer In specified columns Immediately preceding those 
allotted to the corresponding variable value. These specified columns, 
or fields, for the addresses are three columns wide and start In any 
column ending In "I." Thus, cols. 1-3, 11-13, 21-23, 31-33, 41-43, 

51-53, 61-63, and 71-73 are allotted for the addresses. The correspond- 
ing fields for the F values (real numbers) are six columns wide and 
start In any column ending In 4. Therefore, cols. 4-9, 14-19, 24-29, 
34-39, 44-49, 54-59, 64-69, and 74- 7S are reserved for the corresponding 
F values. The implied decimal point location In each ^'variable" field 
Is between the third and fourth columns of those fields-- for example, 
between cols. 6 and. 7 or 16 and 17, etc. Of course, a punched decimal 
point will override the Implied decimal point location. 

Because the address of any variable Is entered with the value of 
the variable as a pair, the pairs may be entered In any order of address. 
However, the address and the value of the variable must always be kept 
together as a set. Pairs of blank fields (for example, cols. 1-3, 

4-9) are not processed in the program. On the other hand, if addresses 
are entered that are less than zero, or zero with a non-zero value for 
the variable, or greater than 145 (except for 217, 218, and 219, which 
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are the aircraft recurring investment cost factors), an error message 
is printed, and the run is terminated at that point. Negative or zero 
numbers are not legitimate numbers for addresses, and an address greater 
than 145 (except for the three addresses noted above) means that an out- 
put variable is being entered. 

Figure 2 shows an input keypunch form that may be used to enter 
data for this program. Each field contains an address and data (value) 
pair. The vertical dashed lines are the implied decimal point loca- 
tions. Thus, in the data field, three digits are allowed on each side 
of the decimal point for the F value, which are usually sufficient for 
most of the data. This is true because cost data must be entered in 
thousands of dollars except where noted by a dollar sign in the list- 
ing of Appendix A (see address 101, for example). Inputs noted by a 
dollar sign are entered in dollars. However, as was stated previously, 
those data values requiring more digits may be entered by simply key- 
punching the decimal points to override the implied decimal point loca- 
tions. The cross-hatched columns (10, 20, 30, etc.) are not used, ex- 
cept tc separate the fields, 

A total of 148 Inputs is listed in Appendix A [F(001) . . .F(145) , 

F(2 17) . . ,F (2 19) ] . However, F(OOl) is not used as an input, and the 
20 constant inputs [f(121) . . .F (141) excluding F(135)] are only entered 
once. Therefore, ]27 is the maximum number of weapon system inputs 
that would ever be required for one pass through the program (usually 
for the initial, or base case, set of data). Since eight inputs can 
be entered on a card, a total of 127 divided by 8 or 16 data cards 
would be required, or 17 including the weapon system title card. 

Since all Inputs are set to zero initially, they will remain zero 
until a value is entered. Note, however, that for subsequent passes, 
if inputs are not entered, their previous values will be retained from 
year to year or fr o m weapon system to weapon system . Therefore, if 
one does not want the '^alue of an input to be retained for the next 
pass, one must enter a new value or a zero for the input. 

An example of an input data card la shown In Fig. 3. Here, vari- 
ables with addresses 098 thtojgh 105 ere entered. Variable with address 
098 has a value of 900; variable with address 099 has a value of 80; 
variable with address 100 has a value of 0,05, and so on. 
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Fig* 3-“Sample data card 



VARIABLE- LISTING SELECTION DESIGNATORS 



Varlable'-llstlng selection designators are used to designate which 
variable addresses, names, and values are to be listed when this option 
of listing the F variables Is used. Unless all variables are to be 
listed (described In the next paragraph), four input cards are used 
each time some of the variables are to be listed. If the column num- 
bers on these four cards are thought of as running continuously from 
card to card, on.» has 1...80 columns on the first card, 81... 160 on 
the second, 161... 240 on the third, and 241... 320 on the fourth card. 

In the program the first 310 columns ot these four cards are treated 
as corresponding to the 310 F variables In Common, and a numeral 1 
punched in any of those columns will cause the variable with address 
corresponding to that column to be listed. For example. Is punched 
In cols. 5, 80, and 172 will cause F(005), F(080) , and F(172) to be 
listed. 

If all variables are to be listed, only one card Is required. A 
numeral 9 In column 1 will result In a printout of all F variables. 

This eliminates the necessity of punching Is In all 310 columns. 

The selection designator cards are always entered Imir.ed lately af- 
ter the set of v:eapcn system data for vdilch the variables are to be 
listed. In the set of weapon system data preceding the selection desig- 
nator card(s), the variable F(120) must be entered as 1.0. This causes 
the selection designator cards to be read. Otherwise, F(120) Is left 
at zero, and the selection designators are not entered. It should be 
noted that contrary to the general rule for Input variables, the value 
of F(120) Is always set to zero for the start of the next pass through 
the program--that Is, a value of 1.0 for F(120) Is not retained for 
the next pass through the program. Therefore, when selection designa- 
tors are to be read for a set of data, F(120) must be entered as 1.0 
In the set of data to which the selection designators apply. This was 
done so that the listing of variables In this form would require a pos- 
itive action by the user. Also, this prevents the Inadvertent carry- 
over of 1.0 for F(120) to the next year for which the user does not 
want the variables listed In this way and thus has not entered the se- 
lection designator cards. 



END- OF -DATA DESIGNATORS 



There are four dtsignators used to end the reading of a set of 
data fcr one year of a weapon system. They are three-digit sixes, sev- 
ens, eights, or nines ^‘66, 777, 888, 999) and are entered in any of 
the address fields following the last data value entered. Once this 
designator is entered, the remaining fields of the card must be blank. 

A new set of input data must always start on a new card. The designa- 
tor 666 indicates that one year of input data is completed with more 
years to follow for the same v^eapon system. Hence, the next card con- 
tains only numerical data beginning for the next year. A 777 indicates 
the end of all years for a weapon system with more weapon systems to 
follow. Thus, the next card must be a title card for a new weapon 
system set of data. An 888 indicates the end of a run — thit is, the 
end of data for all years and for all weapon systems of a run — but 
that another run is to follow. Therefore, the next card must be a 
title card for a new run. The cards to follow would then be the sane 
as those for the first run. If a new run is initiated, all weapon sys^ 
tern input data are set to zero. The constant input data are retained, 
however. 

For t’^e second and subsequent runs, Lhcre is a provision for read- 
ing In the constant input data again. If there are no changes in these 
values from the previous run, one card must be entered containing the 
end-of-data designator 666 In any of the address fields (for example, 
cols. 1-3). Then, the previous constant input values will be retained. 

Finally, a 999 designator indicates that the very last set of data 
has been entered. After this set Is processed, the machine prints a 
termination statement on a new page seating that this is the end of 
the final run; hence all data have been processed. At that point CALL 
FXIT is executed, and the Job 1? terminated. It Is Impovtanl to note 
that unless the end-of-data designators are entered properly in the 
address fields, the mrchlne will continue to road data until no more 
data are available, thus causing premature termination of the job. 

Since the processing of pairs of blank fields Is omitted In the read- 
ing of input data, the end-of-data designator may be entered In 
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cols. 1-3 on a separate card immediately following the set of data to 
which It applies. In some situations, this permits easier manipulation 
of a set of data. 

DATA CARD ARRANGEMENT 

Table 2 suramar Izes the types of Input cards used for the APT pro- 
gram. In conjunction vith Table 2 , Table 3 is presented to show the 
arrangement of input data cards for two hypothetical runs. Run 1 con- 
sists of weapon systems A, B, and C, each to be operated for three 
years. Run 2 consists of weapon systems D and E to be operated for 
two and three years, respectively. A code index of the cards Is given 
in Tables 2 and 3 to allow the user to cross reference the cards in 
the two tables. 

For the runs shown In Table 3, the variable listing read desig- 
nator F(141) must be entered as l.C In the r^onstant Input data since 
the variable listing Is to be read next for later printout. Then, in 
the first year data set of weapon system A, the variable listing print 
designator F(120) must be entered as 1.0. This causes the machine to 
read the selection designators next for printing the F-var'*able listing. 
Also, F(117) is entered as 1.0 In that same first year data of weapon 
system A since the Common, Dump is to be printed as well as the variable 
listing . 

Finally, Table 4 Is presented to summarize the address and data 
field locations on the data cards. 
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Xable 2 

SUMMARY OF INPUT CARDS 



Code 

(see Table 3) 


Type of Card 


Reinarks 


1 


Title of Run 


First card of data deck for each 
run. Contains title of run In 
cols 1-80 (alphanumeric Informa- 
t Ion) ^ 


2 


Constant Input Data 


Consists of constant input data 
F(121).. F(141) less F(135) . End- 
of-data designator for this set of 
data is 666(last entry i:i any 
address field). For second or 
subsequent runSj at least one 
card with a 6f6 designator must 
be entered here. If only one 
such card is entered, previous 
constant input data are retained 
for the new run. 


3 


Variable Listing 
(310 cards) 
(optional) 


If F(141) = 1*0 in constant 

Input data, the F-variaMe 

listing of 31C Cc»rds is entered 

here. This listing Is entered 

only once regardless of number 

of runs made, Each card of this 

listing contains the address 

(cols 1-3) and name (cols 7-72) 

jf the F variable. If F(141) = j 

0,0 in the constant Input dataj | 

this listing is not enteredi 1 


4 


Weapon System Title 


First card of first year of wea- 
pon system data. Contains title 
of weapon system in cols. 5-44. 

No data are entered on this card. 
(Cols. 1-2 were originally reserved 
for weapon system number, a number 
not currently required.) 


5 


Data for One Year 
of Weapon System 


Contains data for one year of a 
weapon system. End-of-data desig- 
nator 666 is used in address field 
at end of this set of data If 
more years of same weapon jystem 
are to follow. A 111 designator | 

1 

1 



o 
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Table 1 (continued) 



Code 

(see Table 3) 



Type of 



ard 



Kexnarks 

Is used If this Is last year of 
weapon system with more weapon 
systems to follow In this run. 

An 888 designator Is used If this 
Is last year of last weapon sys- 
tem of this ruu with more tuns 
to follow, A 999 designator Is 
used If this Is last set of data of 
last run. Job Is then terminated 
after this data set Is processed. 



6 



Variable -Listing 
Salectlon Desls- 
nator 

tl or 4 cards) 
(optional) 



Used to designate which variables 
are to be listed. Always used 
Immediately after set of data for 
which variables are to be listed. 

In that set of data F(120) = 1,0, 

If all variables are to be listed, 
a 9 Is entered In col, 1 of a 
separate card entered here. 
Otherwise, four cards are used 
with a 1 entered In column num- 
bers corresponding to addresses 
of variables to be listed, liie 
four cards may be thought of as 
containing cols 1...80, 81...160, 
161. ••240, and 24l^^.320, the first 



310 of which correspond to the 
F addresses. 
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Table 3 

DATA CARD ARRANGEMENT FOR TWO RUNS 



Code 

^see Table 21 


Type of Cards 


End-of-Data 

Designator 


1 


Run 1 title card 




2 


Constant input data [f(141)=1,0] 


666 


3 


F-variable listing (310 cards) 




4 


Weapon system A title card 




5 


Year 1 data [f(117)=1.0, F(120)=1.0] 


666 


6 


Variable Listing selection 
designators (1 or 4 cards)^ 


— 


5 


Year 2 data 


666 


5 


Year 3 data 


111 


4 


Weapon system B title card 




5 


Year 1 data 


666 


5 


Year 2 data 


666 


5 


Year 3 data 


111 


4 


Weapon system C title card 


--- 


5 


Year 1 data 


666 


5 


Year 2 data 


666 


5 


Year 3 data 


688 


1 


Run 2 title card 




2 


Constant Input data (at least one card) 


666 


4 


Weapon system D title card 


— 


5 


Year 1 data 


666 


5 


Year 2 data 


111 


4 


Weapon system E title card 


... 


5 


Year 1 data 


666 


5 


Year 2 data 


666 


5 


Year 3 data 


999 



^OT this example whose outpiits are discussed Inaction V, only one 



designator card was used since all 310 F variables were listed. 



o 

ERIC 

30 



-23- 



Table if 

SUMMARY OF ADDRESS AKD DATA FIELD LOCATIONS 



Address Fleld^ 
Location (cols) 
(inteRer^ 


Corresponding Data 
Field Location (cols) 
(real number) 


Implied Decimal Point 
Location for Data Field 
(between cols) 


1-3 


4-9 


6-7 


11-13 


14-19 


16-17 


21-23 


24-29 


26-27 


31-33 


34-39 


36-37 


A1-A3 


44-49 


46-47 


51-53 


54-59 


56-57 


6i-63 


64-69 


66-67 


71-73 


74-79 


76-77 



a 

Address fields are also used for end-of-data designators (666, 
777, 888, or 999), Tlie end-of-data designator Is always the last 
entry of each year (set) of weapon system data. 
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V, PROGRAM OUTPlTf S 

Examples of outputs generated by the program are depicted In FlgSt 

4-17. The particular data shown are used only to Illustrate the types 

* 

of outputs obtained from the program. The outputs represent the sys- 
tems listed In Table 3. In this example, both the Common Dump and vari- 
able listing are printed for the first year of weapon system A. Such 
listings are always printed on separate pages. Otherwise, the lines 
of output remain together for each vreapon system. 

Each value listed in the weapon system output is rounded to the 
nearest whole number except for the numbers of aircraft and simulators 
required (see, for example, Fig. 4). Values for these items are printed 
to two decimal places. As explained previously and noted on the out- 
put pages, all costs shown In the weapon system output are In thousands 
of dollars except for the operating cost per graduate, which Is In 
dollars . 

As an example of the use of the Common Dump '-.sting, suppose that 
one Is interested In obtaining the value of the Instructor flying hours 
per student for all aircraft types In the long course. On the fifth 
page of Appendix A the address of this variable is listed as 171, and 
In the Common Dump (Fig. 3) its value Is seen to be 42.3. Similarly, 
the value of the total ground school classroom hours (address 184) Is 
listed as 467o«496. These values are also obtained, of course, from 
the variable listing, Fig, 9, 

Finally, it should be noted that the page numbers start with 1 at 
the beginning of each run. This Is seen In Figs. 4 and 15. Otherwise, 
the pages arc numbered consecutively within a run. 



Figures 4-1? represent demonstration runs. Neither the inputs 
nor the outputs of those runs are Intended to be used for any other 
purposes. If any results from the APT program are to be used for of- 
ficial purposes, the inputs should be obtained from official sources. 
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Fig. 4 — Run 1 sample output (weapon system A): standard printout, 1967 
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Fig. 5 — Run 1 sample output (weapon system A): Common Dump, 1967 
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Fig. 7“ “Run 1 sample output (weapon system A): 
Variable listing, 1967, F (054)-F(106) 
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?ig. 8--Run 1 sanplA, output (weapon system A); 

Variable Hating, 1967, F(107)-F (159) 
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Fig. 9--Run 1 sample output (weapon system A) 
Variable listing, 196/, F(160)-F(212) 
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Fig. ll--Run ' Sample output (weapon system A) 
Variable listing, 1967, F(266)-F(310) 
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Fig. 12 — Run 1 sample output (weapon system A) : standard printout , 1968-1969 
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WEAPON SYSTEM 0 

fALL OUTPUT COSTS EXCEPT OPERATING COST PER GRADUATE ARE IN THOUSANDS Of DOLLARS. 
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j*ig^ l6**“Ruti 2 satuple output: (weapon system E) ! standard printout, 1967-1969 



CnO of final AUW — ALL DATA lUVt BFFN PAOCESSEO^ 
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Appendix A 

LISTING OF APT COMPUTER PROGRAM VARIABIilS 
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APT COMPUTER PROGRAM VARIABLES* 



[NPur LISTING 



WEAPON SYSTEM INPUTS 

001 WEAPON SYSTEM NUMBER 

002 YEAR NUMBER { 1. i 2.t 3.. . . . ETC.) 

003 ENTERING STUDENTS FROM SIMILAR AIRCRAFT 

004 ENTERING STUDENTS FROM DISSIMILAR AIRCRAFT 

005 ENTERING STUDENTS FROM OESK JOBS 

006 ENTERING STUOENTS FROM UNDERGRADUATE PILOT TRAINING lUPT) 

007 LENGTH OF LONG COURSE IWEEKS) 

008 LENGTH OF SHORT COURSE (WEEKS) 

009 FRACTION OF ENTERING STUOENTS WHO GR ADU AT E— LONG COURSE 

010 FRACTION OF ENTERING STUOENTS WHO GRADUATE- SHORT COURSE 

011 HOURS EACH STUDENT REQUIRED TO FLY — TYPE I AIRCRAFT, LONG COURSE 

012 HOURS EACH STUDENT REQUIRED TO FLY — TYPE 2 AIRCRAFT, LONG COURSE 

013 HOURS EACH STUDENT REQUIRED TO FLY— TYPE 3 AIRCRAFT, LONG COURSE 

014 HOURS EACH STUDENT REQUIRED TO FLY-TYPE I, SHORT COURSE 

015 HOURS EACH STUDENT REQUIRED TO FLY — TYPE 2, SHORT COURSE 

016 HOURS EACH STUDENT REQUIRED TO FLY— TYPE 3, SHORT COURSE 

017 simulator HOURS REQUIRED PER STUDENT — LONG COURSE 

018 simulator hours REQUIRED PER STUDENT — SHORT COURSE 

019 HOURS STUDENT REQUIRED TO ATTEND GROUND SCHOOL IGS)— LONG COURSE 

020 HOURS STUDENT REQUIRED TO ATTEND GROUND SCHOOL IGSl— SHORT COURSE 

021 AVERAGE NO. STUDENT PILOTS ON STUDENT CREW — TYPE I, LONG COURSE 

022 AVERAGE NO. STUDENT PILOTS ON STUDENT CREW— TYPE 2, LONG COURSE 

023 AVERAGE NO. STUDENT PILOTS ON STUDENT CREW— TYPE 3, LONG COURSE 

024 AVERAGE NO. STUOENT PILOTS ON STUDENT CREW — TYPE 1, SHORT COURSE 

025 AVERAGE NO. STUDENT PILOTS ON STUOENT CREW— TYPE 2, SHORT COURSE 

026 AVERAGE NO. STUOENT PILOTS ON STUOENT CREW — TYPE 3, SHORT COURSE 

027 HOURS INSTRUCTOR FLIES WITH EACH STUOENT — TYPE 1, LONG COURSE 

028 HOURS INSTRUCTOR FLIES WITH EACH STUDENT — TYPE 2, LONG COURSE 

029 HOURS INSTRUCTOR FLIES WITH EACH STUOENT — TYPE 3, LONG COURSE 

030 HOURS INSTRUCTOR FLIES WITH EACH STUDENT — TYPE 1, SHORT COURSE 

031 HOURS INSTRUCTOR FLIES WIT): EACH STUDENT— TYPE 2, SHORT COURSE 

032 HOURS INSTRUCTOR FLIES WITH EACH STUDENT— TYPE 3, SHORT COURSE 

033 MAXIMUM HOURS PER YEAR INSTRUCTOR FLIES WITH STUOENTS 
p34 MAXIMUM SIMULATOR HOURS PER YEAR INSTRUCTOR SUPERVISES 

035 MAXIMUM TRAINER HOURS PER YEAR INSTRUCTOR SUPERVISES 

036 MAXIMUM GS HOURS PER YEAR CCTS INSTRUCTOR TEACHES 

037 MAXIMUM GS HOURS PER YEAR FTD INSTRUCTOR TEACHES 

038 AVG NO. STUOENT PILOTS CN SIMULATOR AT ONE TIME 

039 AVG NO. STUOENT PILOTS IN GS CLASSROOM AT ONE T 'ME— LONG COURSE 

C40 AVG NO. STUOENT PILOTS IN GS CLASSROOM AT ONE IIME— SHORT COURSE 

'041 trainer hours REQUIRED PER STUOENT — LONG COURSE 

042 TRAINER HOURS REQUIRED PER STUOENT —SHORT COURSE 

043 FRACTION OF GS HOURS TAUGHT BY CCTS I NSTRUCTORS--LONG COURSE 

044 FRACTION OF GS HOURS TAUGHT BY CCTS I NSTRUCTORS— SHORT COURSE 



O E ABBREVIATIONS LISTING ON LAST PAGE OF THIS APPENDIX. 
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04 5 

046 

047 
04B 

049 

050 

051 

053 

054 

052 

055 

056 

057 

058 

059 
G61 

060 
062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 
081 
082 

083 

084 

085 

086 
08 7 
086 

089 

090 

091 

092 

093 

094 
095+ 
096 



AIRCRAFT 
A IRCRAFT 
OTHER FH 
0,HER FH 
OTHER FH 
FRACTION 
FRACTION 
TRAINING 
TRAINING 
FRACTION 
AVAILABLE 
AVAILABLE 



ATTRITION PER 100000 FLYING HOURS — TYPE 1 
ATTRITION PER lOOOOO FLYING HOURS — TYPE 2 (SEE 1441 
charged to CREH TRNG (FRACT. stud. ♦SEP. INST. FH)— TYPE 
CHARGED TO CREW TRAINING (FRACTION STUDENT FH)--TYPE 2 
CHARGED TO CREW TRAINING (FRACTION STUDENT FH)— TYPE 3 
OF TOTAL FH OR COST ALLOCATED TO PILOT TRAINI NG— TYPE 1 

ALLOCATED TO PILOT TRAIN ING— TYPE 2 
YEAR ON ONE SIMULATOR 
YEAR ON ONE TRAINER 
ALLOCATED TO PILOT TRAINING— TYPE 3 
YEAR — TYPE 1 
YEAR— TYPE 2 



OF TOTAL FH OR COST 
HOURS AVAILABLE PER 
HOURS AVAILABLE PER 
OF TOTAL FH OR COST 
PLYING HOURS PER 
PER 



FLYING HOURS 



YEAR— TYPE 
YEAR — TYPE 



LEVEL 



AVAILABLE FLYING HOURS PER YEAR— TYPE 3 
AIRCRAFT AVAILABLE AT BEGINNING OF FIRST 
AIRCRAFT AVAILABLE AT BEGINNING OF FIRST 
SIMULATORS AVAILABLE AT BEGINNING OF FIRST YEAR 
AIRCRAFT available AT BEGINNING OF FIRST YEAR--TYPE 3 
TRAINERS AVAILABLE AT BEGINNING OF FIRST YEAR 
FIXED NUMBER OF I NSTRUCTOR*SUPERV+ADMIN — SOON LEVEL 
VARIABLE NUMBER OF 1 NSTRUCTOR-SUPERV^AOM 1 N I PER INST.) — SQDN 
FIXED NUMBER OF ACADEMIC-PROGRAM SUPERVISORS— SQUADRON LEVEL 
VARIABLE NO. ACAD-PROG SUPERVi PER STUD. IN STUD. LOAD— SQDN LEVEL 
TOTAL STANDARD-eVALUATICN PERSONNEL REQUIRED 

AiRCRAFt MAINTENANCE PERSONNEL REQUIRED PER FLYING HOUR— TYPE 1 

AIRCRAFT maintenance PERSONNEL REQUIRED PER FLYING HOUR — TYPE 2 

AIRCRAFT MAINTENANCF PERSONNEL REQUIRED PER FLYING HOUR— TYPE 3 

SIMULATOR OPER+MTC PERS AUTHORIZED PER SIMULATOR OR PER SIM HOUR 
TRAINER OPER+MTC PERS AUTHORIZED PER TRAINER 
FIXED NUMBER OF ADMINISTRATIVE PERSONNEL — WING LEVEL 
VARIABLE NO. AOMIN PERS— WING LEVEL I PER OPER+MTC PERSONNEL) 

FIXED NUMBER OF SUPPORT PERSONNEL 

VARIABLE NO. SUPPORT PERS (PER TOTAL STUDENT LOAD+OPER+MTC+AOMIN) 
OF GS CCTS INSTRUCTORS WHO ARE OFFICERS 
GS CCTS INSTRUCTORS WHO ARE AIRMEN 
GS FTO INSTRUCTORS WHO ARE OFFICERS 
GS FTD INSTRUCTORS WHO ARE AIRMEN 

INSTRUCTOR'SUPERV+AOHIN ISCON LEVEL) WHO ARE OFFICERS 
INSTRUCTOR-SUPERV+AOMIN (SOON LEVEL) WHO ARE AIRMEN 
ACAO-PROGRM SUPERV+AOHiN (SQDN LEVEL) WHO ARE OFFICERS 
ACAO-PROGRM SUPERV+AOMIN (SQDN LEVEL) WHO ARE AIRMEN 
AIRCRAFT MTC PERSONNEL WHO ARE OFFICERS 
AIRCRAFT MTC PERSONNEL WHO ARE AIRMEN 
SIMULATOR AND TRAINER HTC+OPER PERS WHO ARE OFFICERS 
SIMULATOR AND TRAINER HTC+OPER PERS WHO ARE AIRMEN . 
AOMIN PERSONNEL IHING LEVEL) WHO ARE OFFICERS 
AOMIN PERSONNEL (WING LEVEL) WHO ARE AIRMEN 
SUPPORT PERSONNEL WHO ARE OFFICERS 
SUPPORT PERSONNEL WHO ARE AIRMEN 
OFFICERS WHO ARE RATED 
HIN INCREASE IN SIUOENT LOAD BEFORE I. I. TRNG EQUIP+SPARES JUSTIF. 

1. 1. COST PER AIRCRAFT — TYPE 1 

1.1. COST PER AIRCRAFT— TYPE 2 



FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 

FRACTION 



OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 

OF 



ERIC 



ALL COSTS (INPUT AND OUTPUT) 
DENOTED BY I $). 



ARE IN THOUSANDS OF DOLLARS EXCEPT THOSE 



49 
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097 

099 

099 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
117 
113 

119 

120 



1.1. COST PER 

1.1. COST PER 

1.1. COST PER 
FRACnOM OF I . 
I.l. COST FOR 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 
OPERATING COST 



AIRCRAFT — TYPE 3 

SIMULATOR 

TRAINER 

I. SIMULATOR COST FOR SIMULATOR SPARES COST 
TRNG EQUI P+SPARES PEP INCREASE IN STUDENT LOAD (») 
PER FLYING HOUR FOR DEPOT HTC — TYPE 1 (t) 

PER FLYING HOUR FOR DEPOT HTC — TYpE 2 (S) 

PER FLYING HOUR FOR DEPOT MTC — TYPE 3 ($1 

PER FLYING HOUR FOR POL — TYPE 1 

PER flying hour FOR POL—TYPE 2 ($) 

PER FLYING HOUR FOR POL — TYPE 3 I») 

PER FLYING HOUR FOR MAT ER I AL — T YPE 1 li) 

PER FLYING HOUR FOR MATERIAL — TYPE 2 (S) 

PER FLYING HOUR FOR MATERIAL — TYPE 3 (tl 

PER STUDENT FOR MUNITIONS — LONG COURSE ($1 

PER STUDENT FOR MUNITIONS — SHORT COURSE ($) 

PER STUDENT FOR AVERAGE TOY/PCS U) 

PER SIM PER YR FOR SIM HTC — MATERlALt SERVICES 
PER YEAR FOR TARGET RENTAL 



R AND 0 COST 

DUMP PRINTOUT DESIGNATOR (0./1.--DO NOT/DO PRINT DUMP) 
ZERO-OUTPUT DESIGNATOR 10. /I. —DO NOT/DO ZERO OUTPUT EXCEPT 
CLEAR DESIGNATOR iO./l.— DO NOT/DO ZERO OUT ALL F VARIABLES 
WEAPON SYSTEM VARIABLE-LISTING PRINT DESIGNATOR 



GRADS) 



CONSTANT INPUTS 

121 BEGINNING YEAR lE.G., 1969) 

122 MIN INCREASE IN PERM PARTY BEFORE I.l. EQU I P+SUPPL I ES JUSTIFIED 

123 I.l. COST FOR BASE SUPPORT EQUIP*SPARES PER PERM PARTY INCREASE(J) 

124 I.l. COST FOR BASE SUPPLY INVENTORY PER PERM PARTY INCREASE It) 

125 I.l. COST FOR PERM-PARTY- I NCREASE TRAINING OFF BASE ($1 

126 I.l. COST FOR PERM-PARTY-INCREASE TRAVEL (») 

127 OPER. COST PER YEAR FOR AVG PAY OF STUDENT 1$) 

128 OPER. COST PER YEAR FOR AVG PAY OF PERM PARTY RATED OFFICER IS) 

129 OPER. COST PER YEAR FOR AVG PAY OF PERM PARTY NONRAFEO OFFICER (S) 

130 0»ER. COST PER YEAR FOR AVG PAY OF PERM PARTY AIRMAN (S) 

131 OPER. COST PER YEAR FOR AVG PAY OF CIVILIAN IS) 

132 OPER. COST PER YEAR FOR AVG TOY OF PERM PARTY (S) 

133 OPER. COST PER YEAR FOR SERVICES— AVG PER PERSON ON BASE IS) 

134 OPER. COST PER YEAR FOR SUPPLI ES + EOU I P PER PERSON ON BASE IS) 

135* FRACTION OF SIMULATOR HOURS OR COSTS ALLOCATED TO PILOT TRAINING 

136 OPER. COST PER YEAR FOR SUPPORT ACFT — AVG PER PERSON ON BASE IS) 

137 OPER. COST PER YEAR FOR PERM PARTY OFFICER TRAINING OFF BASE (SI 

138 OPER. COST PER YEAR FOR PERM PARTY AIRMAN TRAINING OFF BASE IS) 

139 OPER. COST PER YEAR FOR AVERAGE PCS PER PERM PARTY PERSON (S) 

140 FRACTION OF I.l. AIRCRAFT COST FOR AIRCRAFT SPARES COST 

141 VARIABLE-LISTING READ DESIGNATOR IO./1.--00 NOT/00 REAO VARIABLES) 
142* INSIRUCTOR LEAO/TOW FLYING HOURS PER STUDENT — TYPE 1, LONG COURSE 
143* INSTR.'CTOR LEAD/TOH FLYING HOURS PER STUDENT — TYPE 1< SHORT COURSE 
144* AIRCRAFT ATTRITION PER lOOOOO FLYING HOURS— TYPE 3 ISEE 045, 046) 
145* OPER. COST PER YEAR FOR TRAINER HTC PER T RNR-- H AT ER I AL , SERVICES 

o 

system input. see also addresses 217. 210, AND 219. 



rn 



CUTPUT LISTING 



INTERNAL COUNTERS 

146 PAGE NUMBER 

147 YEAR COUNTER 

148 END-OF-OATA DESIGNATOR 

149 PASS COUNTER 



CURRENT YEAR PLUS STUDENT AND GRADUATE TOTALS 



150 CURRENT YEAR 

151 TOTAL ENTERING STUDENTS 

152 TOTAL ENTERING STUDENT S— LONG COURSE 

153 TOTAL ENTERING STUOENTS--SHORT COURSE 

154 TOTAL GRAOUATES-'-LONG COURSE 

155 TOTAL GRADUATES— SHORT COURSE 

156 TOTAc GRADUATES 

157 average number OF STUDENTS PER YEAR-LONG COURSE 

150 AVERAGE NUMBER OF STUDENTS PER YEAR— SHORT COURSE 

159 AVERAGE STUDENT LOAD FOR LONG COURSE 

160 AVERAGE STUDENT LOAD FOR SHORT COURSE 

161 TOTAL AVERAGE STUDENT LOAD 



TRAINING HOURS 



162 TOTAL STUD NT FLYING HOURS--TYPE 1, LONG COURSE 

163 TOTAL STUDENT FLYING HOURS — TYPE 2, LONG COURSE 

164 TOTAL STUDENT FLYING HOURS — TYPE 3, LONG COURSE 

165 TOTAL STUDENT FLYING HOURS— TYPE 1, SHORT COURSE 

166 TOTAL STUDENT FLYING HOURS— TYPE 2, SHORT COURSE 

167 TOTAL STUDENT FLYING HOURS— TYPE 3, SHORT COURSE 

168 TOTAL STUDENT FLYING HOURS— TYPE 1 

169 TOTAL STUDENT FLYING HOURS— TYPE 2 

170 TOTAL STUDENT FLYING HOURS— TYPE 3 

171 INSTRUCTOR FH PER STUDENT — ALL AIRCRAFT TYPES, LONG COURSE 

172 INSTRUCTOR FH PER STUDENT— ALL AIRCRAFT TYPES, SHORT COURSE 

173 TOTAL HOURS INSTRUCTOR FLIES WITH STUDENTS — LONG COURSE 

174 TOTAL HOURS INSTRUCTOR FLIES WITH STUDENTS — SHORT COURSE 

175 TOTAL HOURS INSTRUCTOR FLIES WITH STUDENTS 

176 TOTAL STUDENT SIMULATOR HOURS— LONG COURSE 

177 TOTAL STUDENT SIMULATOR HOURS — SHORT COURSE 

178 TOTAL STUDENT SIMULATOR HOURS 

179 TOTAL STUDENT TRAINER HCURS--LONG COURSE 

180 TOTAL STUDENT TRAINER HCURS— SHORT COURSE 

181 TOTAL STUDENT TRAINER HCURS 

182 TOTAL GROUND-SCHOOL CLASSROOM HOURS — LONG COURSE 

183 TOTAL GROUND- SCHOOL CLASSROOM HOURS — SHORT COURSE 

184 TOTAL GROUND-SCHOOL CLASSROOM HOURS 

185 TOTAL GS CLASSROOM HOURS TAUGHT BY CCTS I NSTRUCTORS--LONG COUR E 

186 lOTAL GS CLASSROOM HOURS TAUGHT BY CCTS INSTRUCTORS— SHORT COURSE 

187 TOTAL GS CLASSROOM HOURS TAUGHT BY CCTS INSTRUCTORS 

188 TOTAL GS CLASSROOM HOURS TAUGHT BY FTO INSTRUCTORS— LONG COURSE 



-44- 



189 TOTAL GS CLASSROOM HOURS TAUGHT BY FTD INSTRUCTORS — SHORT COURSE 

190 TOTAL GS CLASSROOM HOURS TAUGHT BY FTD INSTRUCTORS 

191 OTHER FLYING HOURS — TYPE 1 

192 OTHER FLYING HOURS— TYPE 2 

l<’3 OT>+ER FLYING HOURS— TYPE 3 

194 TOTAL FLYING HOURS— TYPE I 

195 TOTAL FLYING HOURS — TYPE 2 

196 TOTAL FLYING HOURS — TYPE 3 

197 FLYING HOURS CHARGED TO PILOT TRAINING— TYPE 1 

198 FLYING HOURS CHARGEO TO PILOT /RAINING— TYPE 2 

199 FLYING HOURS CHARGED TO PILOT TRA I N I NG— TYPE 3 



EQUIPMENT REQUIREMENTS 

2Q0 CURRENT INVENTORY— TYPE 1 

231 CURRENT I NVENTORY— TYPE 2 

202 CURRENT INVENTORY — TYPE 3 

203 CURRENT INVENTORY — SIMULATORS 

204 CURRENT INVENTORY — TRAINERS 

205 AIRCRAFT REQUI RED— TYPE 1 

206 AIRCRAFT REQUIRED — TYPE 2 

207 aircraft required — TYPE 3 

208 SIMULATORS REQUIRED 

209 TRAINERS REQUIRED 

210 AIRCRAFT TO BE PROCURED— TYPE 1 

211 AIRCRAFT TO BE PROCUREO— TYPE 2 

212 AIRCRAFT TO BE PROCUREO— TYPE 3 

213 SIMULATORS TO BE PROCURED 

214 TRAINERS TO BE PROCUREO 

215 TOTAL INSTRUCTOR LEAO/TCW FLYING HOURS— TYPE 1, LONG COURSE 

216 TOTAL INSTRUCTOR LEAD/TOW FLYING HOURS— TYPL 1. SHORT COURSE 

217 RECURRING INVESTMENT COST FACTOR— TYPE 1 (WEAPON SYSTEM INPUT) 

218 RECURRING INVESTMENT COST FACTOR— TYPE 2 (WEAPON SYSTEM INPUT) 

219 RECURRING INVESTMENT COST FACTOR— TYPE 3 (WEAPON SYSTEM INPUT) 

220 SIMULATOR HOURS CHARGED TO PILOT TRAINING 



PERSONNEL REQUIREMENTS 



221 


TOTAL 


222 


total 


223 


TOTAL 


224 


TOTAL 


22 5 


TOTAL 


226 


TOTAL 


227 


TOTAL 


228 


TOTAL 


229 


TOTAL 


230 


TOTAL 


231 


TOTAL 


232 


total 


2-3 


TOTAL 


234 


TOTAL 


O 


TOTAL 


ERLC 


TOTAL 



FLYING INSTRUCTORS REQUIRED 
SIMULATOR INSTRUCTORS REQUIRED 
TRAINER INSTRUCTORS REQUIRED 
GROUND-SCHOOL CCTS INSTRUCTORS REQUIRED 
GROUND-SCHOOL FTD INSTRUCTORS REQUIRED 
INSTRUCTORS REQUIRED 

INSTRUCTOR SUPERVISORS AND AOMIN PERS REQUIRED — SOON LEVEL 

ACAD-PROGRAK SUPERVISORS AND AOMIN PERS REQU IRED— SOON LEVEL 

STANOARO-EVALUATICN PERSONNEL REQUIRED 

NONSTUOENT OPERATIONS PERSONNEL 

AIRCRAFT MAINTENANCE PE RSONNEL--TYPE 1 

aircraft maintenance PERSONNEL — TYPE 2 

AIRCRAFT maintenance PERSONNEL — TYPE 3 

AIRCRAFT maintenance PERSONNEL 

SIMULATOR maintenance ANO OPERATING PERSONNEL 

TRAINER MAINTENANCE ANO OPERATING PERSONNEL 



237 


TOTAL 


238 


TOTAL 


239 


TOTAL 


2A0 


TOTAL 


241 


TOTAL 


242 


TOTAL 


243 


TOTAL 


244 


TOTAL 


245 


TOTAL 


246 


TOTAL 


247 


TOTAL 


248 


TOTAL 


249 


TOTAL 


250 


CHANGE 


251 


CHANGE 


252 


CHANGE 


25 3 


CHANGE 


254 


CHANGE 


255 


ADJUST 


256 


CUMULA 


257 


CUHULA 



SIMULATOR AND TRAINER MAINTENANCE AND OPERATING PERSONNEL 
OPERATIONS and MAINTENANCE PERSONNEL 
ADMINISTRATIVE PERSONNEL (WING LEVEL) 

STUDENT LOAD + OPERATIONS + MTC + ADMINISTRATIVE PERSONNEL 
SUPPORT PERSONNEL 

PERSONNEL CHARGED TO PILOT TRAINING, INCLUDING STUDENTS 
PARTY PERSONNEL 
PARTY OFFICERS 
PARTY AIRMEN 

PARTY MILITARY PERSONNEL 



PERMANENT 
PERMANENT 
PERMANENT 
PERMANENT 
CIVILIANS 
PERMANENT 
PERMANENT 
IN 
IN 



PARTY 
Party 
STUDENT LOAD 
TOTAL PERSONNEL, 



RATED OFFICERS 
NCNRATEO OFFICERS 



INCLUDING STUDENTS 



IN TOTAL PERMANENT PARTY PERSONNEL 
IN TOTAL PERMANENT PARTY MILITARY PERSONNEL 

IN PERM. PARTY LESS CHANGE DUE TO ALLOC. FRACTION VARIATION 
lENT TO ELIM. EFFECT ON I. I. COST OF CHANGE IN ALLOC. FRACT. 
IVE CHANGE IN STUDENT LOAD UNTIL THRESHOLD IS REACHED 
IVE CHANGE IN AOJ. PERM PARTY UNTIL THRESHOLD IS REACHED 



INITIAL INVESTMENT COSTS (THOUSANDS OF DOLLARS) 



258 

259 

260 
261 
262 
263 

2 ( 3 ^ 

265 

266 
267 
26B 

269 

270 

271 

272 



COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
COST OF 
TOTAL INCREA 



AIRCRAFT TC BE PROCURED — TYPE 1 
AIRCRAFT TC BE PROCURED — TYPE 2 
AIRCRAFT TO BE PROCURED — TYPE 3 
SIMULATORS TO BE PROCURED 
TRAINERS TC BE PROCURED 
AIRCRAFT SPARES — TYPE 1 
AIRCRAFT SPARES — TYPE 2 
AIRCRAFT SPARES — TYPE 3 
SIMULATOR SPARES 

TRAINING EOUIP AND SPARES FOR STUDENT LOAD INCREASE 
BASE SUPPORT EQU I P+:SPARES FOR PERM PARTY INCREASE 
SUPPLIES FCR PERMANENT PARTY INCREASE 
TRAINING FCR PERMANENT PARTY INCREASE 
TRAVEL FOR PERMANENT PARTY INCREASE (PCS) 

SE IN I. I. COST 



OPERATING COSTS 


AND 


TOT 


273 


OPERATING 


COST 


OF 


274 


OPERATING 


COST 


OF 


275 


OPERATING 


COST 


OF 


276 


OPERATING 


COST 


OF 


277 


OPERATING 


COST 


OF 


27€ 


OPERATING 


COST 


OF 


279 


OPERATING 


COST 


OF 


260 


OPERATING 


COST 


OF 


261 


OPERATING 


COST 


OF 


^^282 


OPERATING 


COST 


OF 


O 83 


OPERATING 


COST 


OF 


JLB4 


OPERATING 


COST 


OF 



DEPOT MAINTENANCE 
POL 

material 

TOTAL FLYING HOURS 
MUNI TIONS--LONG COURSE 
MUNITIONS — SHORT COURSE 
STUDENT PAY 
RATED OFFICER PAY 
NONRATEO OFFICER PAY 
AIRMEN PAY 

TOTAL PERMANENT PARTY . ILITARY PAY 
TOTAL MILITARY PAY, INCLUDING STUDENTS 



385 

286 

2B7 

286 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 
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PLUS CIVILIANS 



PERSONNEL TOY 



operating cost of civilian pay 

OPERATING COST OF TOTAL PAY — MILITARY 
OPERATING COST OF STUDENT TOY/PCS 
OPERAIING COST OF ALL PERMANENT PARTY 
OPERATING COST OF SERVICES 
OPERATf G COST OF SUPPLIES ANO EQUIPMENT 
OPERATING COST OF SIMULATOR MTC, MATERIAL, ANO SERVICES 
OPERATING COST Or TRAINER MTC, MATFRIAL, ANO SERVICES 
OPERATING COST OF TARGET RENTAL 
OPERATING COST OF SUPPORT AIRCRAFT 
OPERATING COST OF OFFICERS TRAINING 
OPERATING COST OF AIRMEN TRAINING 
OPERATING COST OF PERMANENT CHANGE OF STATION 
TOTAL OTHER OPERATING CCSTt INCLUDING RECURRING INVESTMENT 
TOTAL OPERATING COST, INCLUDING RECURRING INVESTMENT 
OPERATING COST PER GRADUATE IS) 

TOTAL SYSTEM COST (INVESTMENT ♦ OPERATING), EXCLUDING 
AIRCRAFT LOST TO ATTRITION— TYPE I 
AIRCRAFT LOST TO ATTRITION — TYPE 2 
AIRCRAFT LOST TO ATTR I T ION--T ^ PE 3 
RECURRING INVESTMENT COST COPERATING COST)— TYPE I 
RECURRING INVESTMENT COST lOPERATING COST)— TYPE 2 
RECURRING INVESTMENT COST (OPERATING COST) — TYPE 3 



R AND 0 



TOTAL AIRCRAFT 
NOT USED 
NOT USED 



RECURRING INVESTMENT COST (OPERATING COST) 
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4B8REVI ATIQNS LISTING 



ACAD 


ACADEMIC 


ACFT 


aircraft 


ADMIN 


ADMINISTRATIVE 


ADJ. 


adjusted 


ALLOC, 


ALLOCATION 


AVG 


AVERAGE 


CCTS 


COMSAT CREW TRAINING SCHOQLISI 


ELIH. 


ELIMINATE 


EQUIP 


EQUIPMENT 


FH 


FLYING HOUR(S) 


FRACT. 


FRACTION 


FTO 


FIELD TRAINING DETACHMENT 


GS 


GROUND SCHCOL 


INST^ 


INSTRUCTOR(S) 


1 , 1 . 


INITIAL INVESTMENT 


JUST IF. 


JUSTIFIED 


MIN 


MINIMUM 


MTC 


MAINTENANCE 


NO. 


NUMBER 


OPER. 


OPERATING 


PCS 


PERMANENT CHANGE OF STATION 


PERM 


PERMANENT 


PERS 


PERSONNEL 


POL 


PETR0LEUM-0IL-LU8RICANTS 


PROG 


PROGRAM 


R AND 0 


RESEARCH AND DEVELOPMENT 


SEP. 


SEPARATE 


SIM 


SIMULATOR! S) 


SUON 


SQUADRON 


STUD. 


STUOENTISI 


SUPERV 


SUPERVISORIS) 


TOY 


TEMPORARY DUTY 


TRNG 


TRAINING 


TRNR 


TRAINER! S) 


UPT 


UNDERGRADUATE PILOT TRAINING 



o 

ERIC 
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Appendlx B 

FIXDW CHARTS OF APT COMPUTER PROGRAM 
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main ROUTINE 



52 
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MAIN ROUTINE (CONTINUED) 
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MAIN ROUTINE (CONTINUED) 
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SUBROUTINE READ 
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SUBROUTINE EQUIP 
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STUDENT SIMULATOR HOURS 
F{I- 1751 

F(038) 



STUDENT TfiA!^ * ; i;i?5 

j F'J‘ 173) F{M:<.'-.:-r:J.40) 



! I 



TOTAL STUDENT FLyiNG HOURS 
F (I - 167) F.J* 161 WF,I' 164J “ 




TOTAL NUMBER OF GROUND- 
SCHOOL CLASSROOM HOURS 

^ ’ F(I-38^ 



NUMBER OF GROUND-SCHOOL 
CLASSROOM HOURS TAUGHT 
BY CCTS INSTRUCTORS 
F(TM84) F(1^181)>(F(1*4?) 

I 

NUMBER OF GROUND- SCHOOL 
CLASSROOM HOURS TAUGHT 
BY FTD INSTRUCTORS 
F(J087)--FMM8;)-F(1M84) 




J~ I -- Houri Ms'-LCfof 

flies with iiude^^s > 

1 ■■■ 4 -- S^uden^ s xylatc-r 
Kovjrs . 

1 = 7 -- Sfydenf Mainer hourl 

I - 1 0 - - Grcund-JcFool (GS) 

cfossroOTt hours . 
1=13-- GS classroom hours 
taughi by CCTS 

insvi;cfor$ . 

f ~ I 6 - - GS C lossr 00,11 houis 
fought by FTD 

iDifruc^Orj , 




TOTAL HOURS 

FU • 174 1 F ( I ■ I 72) ■ F(I - 173) 





r - I 1 1 






l ( ♦ I 





TOTAL NUMBER OF GRADUATES 
F ( 156) - F (154) + F il55) 





SET INVENTORIES OF AIRCRAFT 
TYPES, SIMULATORS, AND 

trainers initially to those 

FOR BEr inMNG Y:^R. 

F (I ■ 1991 F (i • 57) 



[total AVERAGE STUDEN T LOAd| 
[ F (161) F (159) ♦ F ;>6Q) J 





Yes 




END 


I 5? "> ^ 


1 I • 1 



J 



No 

CONSTANT MUUIPLIER 
DF 10, .. (-5) 



SUBROUTINE EQUIP (C0NTINIH:D) 



62 
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o 
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SUBROUTINE EQUI? (CONTINUED) 



03 
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SIJBROUTINE EQUIP (CONTINUED) 



o 

ERIC 



- 58 - 




o 

ERIC 



SUBROUTINE PERS 



65 



66 
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SUBROUTINE p'ers (C0NT1NUR:D) 
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o 

ERIC 



SUBROUTINE PERS (CONTINUED) 



67 
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subroutine' INCO 
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3UEU0UT1NE INCO (CONTINUED) 
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SUBROUTINE OPCO 



o 
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SU3R0UTINE OPCO (CONllNUED) 



71 
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SUBRDUTINE OUTPUT 
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SUBROUTINB OUTPUT (CONTINUED) 
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PRINT WEAPON SYSTEM 
NAME AND PAGE NUMBER 
ON NEW PAGE. 
\(NAME(J), J= 1,10), JPAGE, 



STEP PAGE NUMBi 
JPAGE = IFAGE 



ER BY K I 

L11_J 



PRINT TWO LINES 
OF SPAC E 



RESET ITEM COUNTER TO ZERO. 
ITEMS = 0 







PRJNf WEAPON SYSTEM 
NAME AND PAGE NUMBER 
ON NEWPAGE* 
(NAME <T>, I = 10), IPAGE 



SEUINECOUNf 
10 45. 
LINES * 45 



Check end- 

of-dofo <f(l48) = K?^ 
indlcofor 




Check 

^LINES<567 > 1,'fx 

count 



PRINTWEAPON SYSTEM \ 
NAME and PAGE NUMBER I 
ON NEW PAGE. J 

NAME ( I ), t ^ I ^ io)~ ipAGE J 




f PRINT R AND o\ 
[ COST. 

V J 



f SET F VARIABLE EQUAL 

J TD OAnC KJI ILJbCa 



TO PAGE NUMBER. 
j P(l<6} = IPAGE 



PRINT SUBHEADINGS ^ 


r < 310? 


<’ei 


I 1 











STEP PAGE NUMBER BY !. 
IPAGE ^ IPAGE ♦ ! 




SET LINE COUNT 
TO 10. 
LINES * 10 












V ® 




SET ALL variable-listing 
SELECTION OcSIGNATIONS 
TO ZERO. 

ID(l) = 0 



No 



SUBROUTINE OUTPUT (CONTINUED) 
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ERLC 

hiMfiiifftifiiTi-aaa 




_^n9)-0.on>- 
Cl.of (i43)/3,7^ 

desigrtofof " 



SET ALL INPUT f 
VARIABLES TO ZERO. 
F(I)= 0. 



Zt rerrxjining 
inpuf voricblei 
fa zero. 




SUBROUTIKE OUTPUT (CONTINUED) 
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Appendix C 

LISTING OF FORTKAN-IV (IBM 360/65) APT 
COMPUTER PROGRAM 



o 
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COHMON F(310)t T!TLE(20)f NAHEUO)t. I0(310)t NAHES( 310, 17 ) 
OLHENSION FI (8), 11(8) 

MAIN ROUTINE OF APT COMPUTER PROGRAM THAT DETERMINES COSTS OF 
STUDENTS IN ADVANCED PILOT TRAINING SCHOOL (CCTS) 

SET ALL INPUT VARIABLES IN COMMON TO ZERO. 

10 DO 20 I * 1, 150 

Fin « 0. 

20 CONTINUE 
FI217) * 0. 

F(218) - 0. 

FI219) * 0. 

101 » 0 

C SET VARIABLE-LISTING SELECTION DESIGNATORS TO ZERO. 

00 25 I * I, 310 

lOin « 0 

25 CONTINUE 

C SET PAGE NUMBER TO 1. 

30 IPAGE » \ 

C SET PASS COUNTER TO ZERO. 

FI1A9) X 0. 

C READ TITLE CARO. 

READ '.5, AO) (TITLE(l), 1 * 1, 20) 

AO FORMAT (20AA) 

1 * 0 

C READ CONSTANT INPUTS. 

50 READ (5, 60) (Il(K)t FKK), K « 1, 8) 

6^0 FORMAT (8(13, F6.3, IX)) 

DO 70 K = 1, 8 

IF (IKK) .EQ. 666) GO TO 80 

IF (IKK) .EQ. 0 .ANOk FKK) .EQ. 0.) GO TO 70 

IF (IKK) .GT. 216 .AND. IKK) .LT. 220) GO TO 65 

IF (IKK) .LE. 0 .OR. IKK) .GT. 1A5) GO TO lAO 

65 I • IKK) 

Fin > FKK) 

70 CONTINUE 
GO TO 50 

C PRINT TITLE AND PAGE NUMBER ON NcW PAGE 
60 WRITE (6, 90) (TITLE(I), I = 1, 20), IPAGE 
90 FORMAT (IHI/ lOX, 20AA, 26X, 5HPAGE • 12) 

C SET PAGE NUMBER TO 2. 

F(1A6) « 2.0 

IF (101 .EQ. 1 .OR. F(lAl) .EQ. 0.) GO TO 100 
C READ IN ADDRESSES AND NAMES OF ALL F VARIABLES IF F(Ul) = 1.0. 
92 READ (5, 9A) 1, (NAMES! I,J), J * 1, 17) 

9A FORMAT (13, 3X, 17AA) 

IF ( I .NEl 310) GO TO 92 
101 > 1 

C SET CURRENT EQUIPMENT INVENTORIES TO ZERO. 

100 00 105 1 a 200, 20A 
FK) a 0. 

105 CONTINUE 

C SET ZERO-OUTPUT DESIGNATOR TO ZERO. 

FI 118) « 0. 

O SET YEAR COUNTER TO ZERO. 
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F( U7> = 0. 

C READ WEAPON-SYSTEM CARD 

READ (5r 110) IW, (NAHEU)t I = li 10) 
no FORMAT (12» 2X, lOAA) 

F(OOl) = [W 

SET ALL OUTPUT VARIABLES IN COMMON TO ZERO EXCEPT EQUIPMENT 
INVENTORIES AND AIRCRAFT RECURRINS INVESTMENT COST FACTORS. 

120 00 130 I > 151, 199 

F(I) » 0. 

130 CONTINUE 

C STORE VALUES OF AIRCRAFT RECURRING INVESTMENT COST FACTORS. 

TEMPI * F(217) 

TEMP2 =» FI218) 

TEMP3 » F<219) 

00 132 I - 205, 310 

Fm « 0. 

132 CONTINUE 

C RESTORE VALUES OF AIRCRAFT RECURRING INVESTMENT COST FACTORS. 

F(217» » TEMPI 
FI218) » TEMP2 
FI219) » TEMP3 

C SET VARIABLE-LISTING PRINT DESIGNATOR TO ZERO. 

Ftl20» - 0. 

C STEP YEAR COUNTER BY 1* 

F<IA7I * FIK7) ♦ 1.0 
C STEP PASS COUNTER BY 1. 

F(149» » F(149) ♦ l.O 
C READ WEAPON SYSTEM INPUTS. 

CALL READ 

C CALCULATE TRAINING HOURS AND EQUIPMENT REQUIREMENTS. 

CALL EQUIP 

IF (Fills) .EQ. 1.0) GO TO 135 
C CALCULATE PERSONNEL REQUIREMENTS. 

CALL PERS 

C CALCULATE INVESTMENT COSTS. 

CALL INCO 

C CALCULATE OPERATING COSTS. 

CALL OPCO 

C PRINT RESULTS. 

135 CALL OUTPUT 

IND » F(1A8) *■ 0.5 

GO TO (120, 100, 30, 160), IND 

C PRINT ERROR MESSAGE 

lAO WRITE <6, 150) 1 ^ 

150 FORMAT ( IHO/ lOX, liOHAN ADDRESS FOR ONE OF THE INPUT CONSTANT 

C FACTORS HAS NOT BEEN ENTERED PROPERLY. THE LAST CORRECT. ADDRESS 
CWAS , 13, IH. / lOX, 29HTHIS JOB HAS BEEN TERMINATED. ) 

CALL EXIT 

C PRINT ENO-OF-RUN STATEMENT 

IbO WRITE (6, LTD) 

170 FORMAT IlHl/ lOX, 49HEN0 0.* FINAL RUN — ALL DATA HAVE BEEN 

C PROCESSED.) 

CALL eXIT 
END 
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SUBROUTINE READ 

COMMON F(310», TITLE(20)f IJAHE(IO),. 10(310), NAME S ( 3 1 0, 1 7 ) 
DIMENSION II (0) 

SUBROUTINE FOR READING WEAPON SYSTEM INPUT DATA 



C 



C 



I 

! 




10 I *= 0 

READ WEAPON SYSTEM INPUT DATA 
20 READ 15, 30) ([IIK), Fl(K), K 
30 FORMAT (8(13, F6.3, IXJ ) 



= 1 , 8 ) 
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DO 

IF 

IF 

IF 

IF 

I 



AO R * 
(IKK) 
(IKK) 
(IKK) 
(IKK) 
IKK) 



If 8 

.GT. 

.EO. 

.GT. 

.LE. 



665) GO TO 50 

0 .AND. FKKI .EO. 0.) 30 TO AO 
216 .AND. IKK) .LT. 220) GO TO 
0 .OR. IKK) .GT. 1A51 GO TO 60 
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F(I) « FKK) 

AO CONTINUE 
GO TO 20 

50 IF (IKK) .NE. 666 .AND. IKK) 
C IKK) .NE. 999) GO TO 60 
CURRENT YEAR (BEGINNING YEAR ♦ 
FK50) = F(121) + F(002) - I .0 
ENO-OF-OATA DESIGNATOR 



.NE. 777 .AND. IKK) .NE. 888 .AND. 



YEAR NUMBER - l.O) 



F(IA8) = 



F( 1A8) 



F( lAB) 



FI1A8) 



1.0 — END OF 
(IKK) = 666) 

2.0 -- END OF 
(IKK) = 777) 

3.0 — END OF 
GO TO NEW RUN. 
(IKK) ^ 688) 
A.O — END OF 



ONE YEAR'S DATA FOR ONE WEAPON SYSTEM 
FINAL YEAR'S DATA FOR ONE WEAPON SYSIEH 
FINAL YEAR'S DATA FOR FINAL WEAPON SYSTEM. 



ALL RUNS 



I IKK) = 999) 

F(IA8) = (IKK) « 500)7100 
IF (FU20I .EQ. 0.) RETURN 
READ (5, 55) (IDII), I * I, 80) 

IF I ID(1 ) .EO. 9) GO TO 80 

READ (5, 55) ( ID( 1 ), I * 81, 1601 

READ (5, 55) (IDK), I ^ 161, 2A0) 

READ (5, 55) (ID(I), I > 291, 305) 

55 FORMAT (8011) 

RETURN 

WRITE ERROR MESSAGE 
60 WRITE (6i 70) I 

70 FORMAT (IHO/lOX, 107HAN ADDRESS FOR A WEAPON SYSTEM INPUT VARIABLE 
C HAS NOT BEEN ENTERED PROPERLY. THE LAST CORRECT ADDRESS WAS ,13, 
C IH. / lOX, 29HTH1S JOB HAS BEEN TERMINATED. ) 

CALL EXIT 

SET ALL VARIABLE-LISTING SELECTION DESIGNATORS TO 1. 

60 00 90 1 « 1, 310 
lD(t> « 1 
90 CONTINUE 
RETURN 
END 



79 



oo c o ooooo 



- 73 - 



SUBROUT INE EQUIP 

COMMON F(310)t TITLE(20>t NAHEClOIi lOOlOK NAMES! 310. 17 ) 

SUBROUTINE FOR DETERMINING TRAINING HOURS AND EQUIPMENT 
REQUIREMENTS 

TOTAL NUMBER, OF ENTERING STUDENTS 
10 F!l5l) » F(003) + F(OOA) + FI005 I *■ F1006I 
NUMBER OF ENTERING STUDENTS IN LONG COURSE 
FI 1521 = FI I5U - FI003) 

NUMBER OF ENTERING STUDENTS IN SHORT COURSE 
F( 153) = FI003) 

UO 30 I = I, 2 

I « I — LONG CDURSEt 1*2-- SHORT COURSE 
NUMBER OF GRADUATES 
n 1 + 153) * FI 1+8) ♦ FI 1+151) 

IF IFIlie) .£0. 1.0) GO TO 30 
C AVERAGE NUMBER OF STUDENTS PER YEAR 

FII+155) » 0.5 * IFII+I5n + FII+153)) 

C AVERAGE STUDENT LOADS 

FII + 158) « m + 156) * FII+6) / 52.0 
FI I + ITO) ■ 0. 

00 20 J = I, 3 
K » 3 * I + J 

IF IFIK+17) .EO. 0.) GO TO 20 
C STUDENT FLYING HOURS FOR AIRCRAFT TYPES 1, 2, AND 3 

FIR+158) * FII+156) ♦ FIK+7) / FlK+17) 

C INSTRUCTOR FLYING HOURS PER STUDENT 

FII + ITO) * FII.+ 170) + IFIK+23) / FlK+17)) 

20 CONTINUE 

C NUMBER OF HOURS INSTRUCTOR FLIES WITH STUDENTS 
FII+172) « FII+156) • FII+170) 

C TOTAL INSTRUCTOR FLYING HOURS IN LEAO/TOW AIRCRAFT TYPE I 

F(1+21A) • FM+:i56) * FII + lAl) 

C STUDENT SIMULATOR HOURS 

IF IFI038I .NE. 0.) Fl!+175) = FII+156) • FII+16) / FI036) 

C STUDENT TRAINER HOURS 

FII + 178) » FII«a56) ♦ FII+AO) 

C NUMBER OF GROUND-SCHOOL CLASSROOM HOURS 

IF (Fll+38) .NE. 0.) FII+181) * FII+156) • FII+18) / FIl+38) 

C NUMBER OF GROUND-SCHOOL CLASSROOM HOURS TAUGHT BY CCTS INSTRUCTORS 

FI1+18A) * FI I+IBII • FII+A2) 

C NUMBER OF GROUND-SCHOOL CLASSROOM HOURS TAUGHT BY FTO INSTRUCTORS 

FII+187) • FII+181) - FII+18A) 

30 CONTINUE 

C TOTAL NUMBER OF GRADUATES 

FI156) * FI15A) + FI155) 

IF IFI118) .EQ. 1.0) RETURN 
C TOTAL AVERAGE STUDENT LOAD 

FI161) > FI159) + FI160) 

C TOTAL STUDENT FLYING HOURS -- AIRCRAFT TYPES 1« 2, AND 3 
DO AO 1 * 1, 3 

FI 1 + 167) * FI 1 + 161) + FI 1 + 16A) 

AO CONTINUE 

^ TOTALS -- HOURS INSTRUCTOR FLIES HIM STUDENTS, 




Rn ' 



STUDENT SIMULATOR 
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C 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

o 
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HOURS* STUDENT TRAINER HOURS* GS CLASSROOM HOURS, GS CLASSROOM 
HOURS TAUGHT BY CCTS, AND GS CLASSROOM HOURS TAUGHT BY FTO 
DO 50 1 = If 16* 3 
F(I*174) = F(I+172) ♦ F(I*173> 

50 CONTINUE 

SET INVENTORIES OF AI’CRAFT TYPES, SIMULATORS, ANO TRAINERS 
INITIALLY TO THOSE FOR BEGINNING YEAR. 

IF IFIlATl .GT. l.O) GO TO 70 
DO 60 I » 1, 5 
FI I + 199I ■* FI I+57I 
60 CONTINUE 

DF = 10. **(-5) 

TO DO 90 I = I, 5 

I » 1-3 — AIRCRAFT TYPES 1-3, I = A — SIMULATORS, 1=5-- 
TRAINERS 

S6V AIRCRAFT ATTRITION TERM INITIALLY TO ZERO. 

ATTR = 0. 

IF I I .GT. 31 GO TO 80 

OTHER FLYING HOURS 

F(I*190J = FII+46) * FIIU67) 

ADJUST OTHER FLYING HOURS FOR AIRCRAFT TYPE 1 TO INCLUDE LEAD/TOd 
AIRCRAFT FLYING HOURS. 

IF (I .E'J. 1) FUND = FI047) ♦ (FI168) *■ FI215I ♦ F(21S)) 

TOTAL FLMNG HOURS 

F(l+193) = F(I*167J ♦ F(I*190» 

ADJUST TOTAL FLYING HOURS FOR AIRCRAFT TYPE I TO INCLUDE LEA’/rOH 
AIRCRAFT FLYING HOURS. 

IF (I .EO. n FI194) * FI194I ♦ FI215J ♦ FI216) 

FLYING HOURS CHARGED TO PILOT TRAINING 
FIU196) * F(1*49I * FIU193I 
NUMBER OF AIRCRAFT REQUIRED 

IF (FIU5A) oN:-. 0.) FIU204I = FIU193) / FIU5A) 

GO TO <72, 74, 76), I 
NUMBER OF SIMULATORS REQUIRED 
72 IF IFI053) .NE. 0.) FI208) * FI178) / FI053) 

NUMBER OF TRAINERS REQUIRED 

IF IFf054) .NE. 0.) F(209> >> FI181) / FIOSA) 

NUMBER OF TYPE 1, TYPE 2 AIRCRAFT TO 8E PROCURED FOR ATTRITION 
74 F(I*30ll « FIU44) • FH*193) ♦ OF 
ATTR « FI 1*301) 

GO TO 60 

NUMBER OF TYPE 3 AIRCRAFT TO BE PROCURED FOR ATTRITION 
76 FI304) « FI144) • FI196) * OF 
ATTR « FI304) 

TOTAL NUMBER OF AIRCRAFT, SIMULATORS, ANO TRAINERS TO BE PROCURED 
80 F(I*209) ■ FIU2D4) - F(I*199) ♦ ATTR 

If NUMBER TO BE PROCURED IS LESS THAN ZERO, SET NUMBER TO ZERO. 

IF «Fn*209) .LT. 0.) F(I*209) = 0. 

CURRENT INVENTORY DF AIRCRAFT TYPES, SIMULATORS, AND TRAINERS 
FII*199) « F(I*199) ♦ F(I*209l - ATTR 
90 CONTINUE 

SIMULATOR HOURS CHARGED TO PILOT TRAINING 
F(.»20) » FI178) • FI135) 

RETURN 

END 
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SUDROUT[NE PERS 

COHMOM F(310)t riTLE{20)t NAHEdOK 10(310), NAHE S ( 3 L 0, 1 7 ) 
0IHE^)SI0N r(8l 

SUBROUTINE FOR DETERMINING PERSONNEL REQUIREMENTS 

NUMBER OF FLYING INSTRUCTORS REQUIRED 
IF (F(0331 .NE. C.) F(22l) = F(175l / F(033) 

NUMBER OF SIMULATOR INSTRUCTORS REQUIRED 
IF (F(03A) .NE. 0.1 F(222) = F(178l / F(03A) 

NUMBER OF TRAINER INSTRUCTORS REQUIRED 
IF (F(035) .NE. 0.) F(223) * F(1BII t F(035) 

NUMBER OF GROUND-SCHOOL CCTS INSTRUCTORS REQUIRED 
IF (F<036) .NE. 0.) F(22-5) = F(187» t F(036) 

NUMBER OF GROUND-SCHOOL FTO INSTRUCTORS REQUIREO 
IF (FI037) .NE. 0.) FI225I = F(1?0) t F(037) 

TOTAL INSTRUCTORS REQUIREO 

F(226) * F(22H + F(222) ♦ F(223) ♦ F(220 ♦ F(225) 

NUMBER OF INSTRUCTOR SUPERVISORS AND ADMINISTRATIVE PERSONNEL 
REQUIREO (SQUADRON LEVEL) 

F(227) * FI0631 ♦ F(06A) * F(226) 

NUMBER OF ACADEMIC-PROGRAM SUPERVISORS AND ADMINISTRATIVE 
PERSONNEL REQUIRED (SQUADRON LEVEL) 

F(228) * F(065) ♦ F(066) * F(I6)) 

NUMBER OF STANDARD-EVALUATION PERSONNEL REQUIRED 
F(229) = F1067) 

TOTAL NONSTUDENT OPERATIONS PERSONNEL 
F(230l * F(226) ♦ F(227) ♦ FI22B) ♦ F(229) 

NUMBER OF MAINTENANCE PERSONNEL FOR AIRCRAFT TYPES 1, 2, AND 3 
DO 20 I B 1, 3 

F(I*230) ■ F(I*67) ♦ FU*196) 

20 CONTINUE 

TOTAL AIRCRAFT MAINTENANCE PERSONNEL 
F(23A) » FI231) ♦ FI232) ♦ F(233» 

NUMBER OF SIMULATOR MAINTENANCE AND OPERATING PERSONNEL (FUNCTION 
OF NUMBER OF SIMULATORS REQUIRED) 

F(235l « F(Oni * F(208) ♦ F(135) 

NUMBER OF SIMULATOR MAINTENANCE AND OPERATING PERSONNEL (FUNCTION 
OF SIMULATOR HOURS CHARGED TO PILOT TRAINING) 

IF (F(07U .LT. 1.0) F(235) - F(071) ♦ FI22DI 
NUMBER OF TRAINER MAINTENANCE AND OPERATING PERSONNEL 
FI236) FI072) * F(20AI 

TOTAL SIMULATOR AND TRAINER MAINTENANCE AND OPERATING PERSONNEL 
F(237) » FI235) ♦ FI236) 

OPERATIONS AND MAINTENANCE PERSONNEL 
FI238) > FI230) « FI23A) « FI237) 

ADMINISTRATIVE PERSONNEL (MING LEVEL) 

F1239) « FI073) ♦ FI07A) ♦ FI2381 

TOTAL STUDENT LOAD ♦ OPERATIONS * MAINTENANCE PERSONNEL * 
ADMINISTRATIVE PERSONNEL 
PI2A0) B FI16I) « F(238) « F(239) 

TOTAL SUPPORT PERSONNEL 
F(2An * F(075) ♦ FI076) • FI2A0) 

TOTAL PERSONNEL CHARGEABLE TO PILOT TRAINING, INCLUDING STUDENTS 
FI2A2) ■ F(2A0) ♦ FI2AI) 
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c TOTAL PERMANENT PARTY PERSONNEL 

F(2A3) = FJ2A2) - FUSU 
C RATED INSTRUCTORS (TEMPORARY VALUE) 

TEMP * F(22i) ♦ F)222> + F(223) F(229) 

C TOTAL PERMANENT PARTY OFFICERS 

F(2AA) = TEMP ♦ F(077) ♦ F(22A) ♦ F(079) * F(225) ♦ 

C F(081J ♦ F(227l ♦ F(083) * F(228) ♦ F(085) * F(23A» ♦ 

C F(087) * F(237) ♦ F1089) * F(239) ♦ F(09l) * F(2A1) 

C TOTAL PERMANENT PARTY AIRMEN 

F(2A5) - F(078) ♦ F(22A) ♦ F(080) ♦ F(225) ♦ F1082) * F(227) ♦ 

C F(08A) * F1228J ♦ F(086) ♦ F(23A) ♦ FI088) * F(237( ♦ 

C F(090) ♦ F(239J ♦ F)0921 ♦ F12A1) 

C TOTAL PERMANENT PARTY MILITARY PERSONNEL 

F(2A6) = F(2AA) ♦ F(2A5> 

C TOTAL CIVILIANS 

FI2A7) = F(2A3) - FI2A6) 

C TOTAL PERMANENT PARTY RATED OFFICERS 

FI2A8) » F(093) * FI2AA) + TEMP ♦ (l.O - F(093)l 
C TOTAL PERMANENT PARTY NONRATED OFFICERS 

F(2^9> = F(2A<f) •• FI2A0) 

C = (l.O ♦ F(07A)) * (l.O ♦ FI076)) 

D B 0. 

IF (F(147) .EO. l.O) GO TO AO 
C STUOENT LOAD CHANGE 

FI250) = FU61) - TIA) 

C TOTAL PERSONNEL CHANGE, INCLUDING STUDENTS 

FI251) = F(2A2» - T15) 

C CHANGE IN TOTAL PERMANENT PARTY PERSONNEL 

F(252) = F12A3) - T16) 

C CHANGE IN TOTAL PERMANENT PARTY MILITARY PERSONNEL 

FI253) = FI2A6) - T17) 

00 30 I = l» 3 

0*0+ ((FIUA9I - T(D) ♦ F(I*67> ♦ F(I*173n 
30 CONTINUE 

IF (FI07U. .LT. 1.) 0 » 0 ♦ (FmSI - T(8J) ♦ F(178) ♦ F(07I) 

IF (F«071) .GE. 1.) 0 * 0 ♦ IFI135) - T18)) * FI208) » F071) 
ADJUSTMENT TO ELIMINATE EFFECT ON INVESTMENT COST OF CHANGES IN 
ALLOCATION FRACTIONS 
AO F(255) « C ♦ 0 

permanent party change LESS CHANCE OUE TO VARIATIONS IN ALLOCATION 
FRACTIONS 

F(25A) * F(252l - F1255) 

STORE M050), FtOSlI, F1052), F1161), F(2A2I, FI2A3>, F(2A6), 

ANO F( 135) . 

T( 1) * F1050) 

T(2> « FI051) 

T(3) « FI052) 

T(A» « F( 161) 

T(S) * FI2A2) 

T(6I « F(2A3) 

TIT) ■ FI2A6) 

T(8) ■ FI135) 

RETURN 
O END 

ERIC 
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SUBROUTINE INCO 

COMMON f«3l0), T[ILE(20)f NAME'.IOI, 10(310), NAME S ( 3 1 0 . 1 7 ) 
SUBROUTINE FOR DETERMINING INVESTMENT COSTS 
10 DO 20 I = I, 5 

COST OF AIRCRAFTt TRAIVC-RSt AND SIMULATORS TO 8E PROCURED 
F(l*257) = F(I*9A) ♦ F(I+209) 

IF ( I .GT. 3) GO TO 20 

ALLOCATE AIRCRAFT PROCUKFFENT COST TO PILOT TRAINING. 

FCI+257) * F(I*257) ♦ F(I»;9I 
COST OF AIRCRAFT SPARES 
F(I*262) = F1140I * FU+257) 

20 CONTINUE 

ALLOCATE SIMULATOR PROCUREMENT COST TO PILOT TRAINING. 

F(26l» * F(26l) ♦ F( 135) 

COST OF SIMULATOR SPARES 
FI266) = F(IOO) * F(261 ) 

IF (FI1A7) .GT. l.O) GO TO 30 

51 « 0. 

52 = 0. 

30 SI = SI ♦ F(250) 

S2 = S2 ♦ FI25A) 

F<256) = SI 
FI257) = S2 

IF (SI .LT. F(094)) GO TO 40 

COST OF TRAINING EQUIPMENT AND SPARES FOR STUDENT LOAD INCREASE 
WHEN JUSTIFIED BY THE INCREASE 
F(267) » F(lOl) * SI * O.OOl 

51 » 0. 

40 IF (S2 .LT. F(122>) GO TO 50 

COST OF BASE SUPPORT E3UIPMENT AND SPARES FDR PERMANENT PARTY 
INCREASE HHEN JUSTIFIED BY THE INCREASE 
F(268) = FU23I ♦ S2 ♦ O.OOl 

COST OF SUPPLIES FOR PERMANENT PARTY INCREASE tIHEN JUSTIFIED BY 
THE INCREASE 

F1269) “ FI124) ♦ S2 ♦ O.OOl 

52 B 0. 

C COST OF TRAINING FOR PERMANENT PARTY INCREASE 

50 F(270) = FI125) ♦ FI254) ♦ O.OOl 
C COST OF TRAVEL (PCS) FOR PERMANENT PARTY INCREASE 

F(27l) * F(126) * FI254) ♦ O.OOl 
IF (FI270) .LT. 0.) F(270) - 0. 

IF (F(27l) .LT. 0.1 FI271I > 0. 

C TOTAL INCREASE IN INVESTMENT COST 

00 60 I > 258 t 271 
FI272I ■ FI272) ♦ FID 
60 CONTINUE 
RE>TURN 
END 



ERIC 
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SLIBROOTINE OPCO 

CWHOH F!3LO)r TITLE(20)f )^AHEUO)f ID(3lO)t NAMESOlDfl 
SJSROUTINE FOR CALCULATING OPERATING C3STS 



C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



DEPOT MAINTENANCE COST 
10 F(273) -= if(l02)+F(l97) 
POL CnST 
F<27<f) - 
MATERIAL 
F(275> = 



ERIC 



( FU05)*F( 197) 
COST 

IF(108)*F(197) 
COST 



♦ Ftl03)*F(l98) ♦ F( 10<H*F( 199) ) * 



♦ F( 106 )*Fn 9 b) f F(107>*FU99) ) * 



♦ F(109)*F(198) ♦ F( U0)*f= ( 199) ) * 



TOTAL FLYING-HOUR 
FI276) = F(273) ♦ 
MUNITIONS COST -- 
FI277) ■ FUll) ♦ 
MUNITIONS COST -- 
FI278) <= F(112) * 

PAY — STUDENTS 

- F( 127) ♦ 

RATED OFFICERS 

- FI128) * F(2A8) 
NONRATEO 
* F(129) 

AIRMEN 
= F(130) 



FI279) 
PAY — 
FI280) 
PAY -- 
FI281) 
PAY “ 
F<282) 
PAY “ 
FI283) 
PAY — 
FI28A) 
PAY — 
F(285) 
TOTAL 



F(27A) ♦ F(275) 
LONG COURSE 
F( 15Y) * O.OOl 
SHORT COURSE 
F1158) * O.OOl 

F( 161) * O.OOl 



♦ O.COl 



OFFICERS 
♦ FI2A9) 



* O.OOl 



• O.OOl 



• FI245) 

TOTAL PERMANENT PARTY MILITARY 

* FI280) ♦ FlZeil ♦ FI282) 
TOTAL MILITARY* INCLUDING 
- FI279) ♦ F1283) 

CIVILIANS 

* F(131J ♦ FI2A7) ♦ 

PAY — MILITARY PLUS 



STUDENTS 



0.001 

CIVILIANS 



F(286) = FI28A) ♦ FI285) 

TDY/PCS — STUDENTS 

FI287) * FI113) ♦ FI151) ♦ O.OOl 

TOY -- all permanent party personnel 

F(288) - F(132) * FI2A3) * O.OOl 
SERVICES COST 

FI289) * FI113) ♦ F1242) * O.OOl 
OTHER SUPPLIES ANO EQUIPMENT COSTS 
F(290> X FI13A) * F<2A2) * 0.001 

SIMULATOR MAINTENANCE* MATERIAL, AND SERVICES COST 
P1291I ■ FllU) * FI208) ♦ F(135) 

TRAINER MAINTENANCE* MATERIAL, ANO SERVICES 
FI292) - F(US) * FI20A) 

TARGET RENTAL 
F(293) ■ F(ll5) 

SUPPORT AIRCRAFT COST 

F(29A> « F(136l * FI2A2) * O.OOl 

OFFICERS TRAINING COST 

FI295I > F(137) * F(2AA) * O.OOl 

AIRMEN TRAINING COST 

F1296) • FmS) * FI2A5) ♦ 0,001 

PERMANENT CHANGE OF STATION 

FI297I • F(139J ♦ FI2A3) ♦ 0,001 



«r; 



7 ) 

0.031 

0.001 

0.031 
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C RECURRIMG INVESTMENT CDSTS -- AIRCRAFT TYPES 1, 2, 3 

F(305) = F(205) ♦ F(095) * F(2171 • FI050I 

FI306) = FI206) * F(096) * FI218) * FtOSl) 

F(307) = F(207l • F ( 097 ) * F(2191 * F(052) 

C TOTAL AIRCRAFT RECURRING INVESTMENT COST 

F( 308) = F(305) ♦ FI306) ♦ FOOT) 

C TOTAL OTHER OPERATING COST 

F1298) = FI 277) ♦ FI 278) ♦ FI287) ♦ FI288) ♦ F(.’89) ♦ 

C FI291) ♦ F(292) ♦ FI293) *■ F(29A) ♦ F(295) + 

C FI297) ♦ F(308) 

C TOTAL OPERATING COSTi INCLUOING RECURRING INVESTMENT 

f(299) = F(276) ♦ F(286) ♦ FI298) 

C OPERATING COST PER GRADUATE ((> 

IF (F(156) .N£. 0.) Ft300) = F(299) ♦ 1000. / F(15S) 

C TOTAL SYSTEM COSTi EXCLUDING R AND D 

FI30I) = FI272) ♦ FI299) 

RETURN 

END 



o 

ERIC 

. ' > 



FI290) * 
F(296) f 



86 



u u u o 



- 80 - 



SUBROUTINE OUTPUT 

COMMON F(3lOI, nTLE{ 20 tt NAMEUOJ, ID(3lOi, NAMES ( 31 Ot I / ) 
UIHENSION IM12I 

SUBROUTINE FOR PRINTING OUTPUT 



C 



c 



c 



c 

c 



c 



c 



c 

o 
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FIX PAGE NUMBER. 

10 IPAGE * FU46» ^ 0.5 

PRINT WEAPON SYSTEM HEADING FOR FIRST YEAR. 

IF (FUAT) cGT. 1.0) GO TO 60 
IF (F(1A9) .EO. 1.0) GO TO 30 
WRITE (6, 70) (NAMEd), I = I, 10), IPAGE 
STEP PAGE NU)1BER BY 1. 

IPAGE * IPAGE 4- 1 
GO TO A5 

30 WRITE (6, 40) INAHEII), I ^ I, 10) 

40 FORMAT ( IH / 52X, 10A4 f Z9Kt 82HIALL OUTPUT :0STS ECEPT 

C OPERATING COST PER GRADUATE ARE IN H0USAN3S OF DOLLARS.) / ) 
PRINT SUBHEADINGS. 

45 WRITE (6. 50) 

50 FORMAT I IH / 37X, 3I3HN0., 6X) , 50X, 214X, AHOPER) f 2lX, 3HAVG, 

C 4X, 4HPERM, 4X, 6HTYPE 1, 3X, 6HTYPE 2, 3X, 6HTYPE 3, AX, 3HN3., 

C lAX, 6HFLYING, 13X, 5H0THER, 4X, 5HT0TAL, AX, AHPLUS, 2X, 

C 8HC0ST PER / 12X, 3HN0., 5X, 5HSTU0., 3X, 5HPARTY, AX, 

C 3(4HACFT, 5X>, AHSIMS, 5X, 3HINV, 6X, 4HH0UR, lAX, 2(AH0PER, 5X), 
C 3HINV, 5X, AHGRAO / IX. 4HYEAR, 6X, 4HGRAD, 5X, AHLOAD, AX, 

C AHPERS, 5X, 4I3HRE0, 6X), 214HC0ST, 5X), IX, 3HPAY, 

C 3I5X, 4HCDST), AX, 3Hl$) f ) 

INITIALIZE LINE COUNT. 

LINES - 10 

IF (FI 149) .€Q. 1.0) LINES = 12 
FIX DATA TO BE PRINTED. 

60 Iim - F(1501 « 0.5 

11(2) * FI156) ♦ 0.5 

11(3) « F(161) « 0.5 

11(4) = F(2431 ♦ 0.5 

11.(5) * FI 272) ♦ 0.5 

11(6) » F(276> ♦ 0.5 

11(7) > F(286) « 0.5 

IK8) - F(298) ^ 0.5 

11.(9) * F(299> ♦ 0.5 

11(10) * F(301l + 0.5 
H im * F( 300) ♦ 0.5 
11(12) s F(116) ^ 0.5 
IF (LINES .LT. 58) GO TO 90 
PRINT HEADINGS AND PAGE NUMBER ON NEW PAGE. 

WRITE (6, 70) (NAHE(I), I > 1, 10), IPAGE 
70 FORMAT ( IHI/ 52X, lOAA, 27X, 5HPAGE , 1 2/2 9< , 82H( AL L OUTPUT COSTS 
CEXCEPT OPERATING COST PER GRADUATE ARE IN THOUSANDS 3^ DOLLARS.)/) 
STEP PAGE NUMBER BY 1. 

IPAGE » IPAGE ♦ I 
80 WRITE (6, 50) 

SET LINE COUNT TO 10. 

LINES • 10 
PRINT ALL DATA. 
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90 IF (F(lia) .EO. 0.) WRITE (6i 100) (IKJ). J = It <^ ) t 
C (F{J)t J = 205t 208)t (M<J>t J = 3. 11) 

IF thilia) .EQ. 1.0) WRITE (6. 100) II(l)t 11(2) 

100 FORMAT (IK, lA, IK, 3(18, IX), A(F8.2, IK), 6(18, IK), (8) 

C STEP LINE COUNT BY 1. 

LINES » LINES + 1 
IF (Fill?) .EQ. 0.) GO TO 150 
WRITE (6, 70) INAHE(I), I - 1, 10), IPAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE * IPAGE + 1 
WRITE (6, 110) 

no FORMAT (IHO/// 58X, IIHCOMMON DUMP /// 8X, IHl, llX, H2 , llK, 

C 1H3, IIX, IHA, IIX, 1H5, IIX, 1H6, IIX, 1H7, IIX, 1H8, IIX, 1-19, 
C lOX, 2H10, 6X, 9HA0DRESSES //) 

C PRINT COMMON DUMP. 

00 130 I > 1, 310, 10 
3 » I ♦ 9 

WRITE <6, 120) (F(K), < = I, J), I, J 

120 FORMAT (IX, 10(F11.3, IX), 2X, lA, H-, lA) 

130 CONTINUE 

150 IF (F(120) .EQ. 0.) GO TO 180 

WRITE (6, 70) (NAME(I), I = 1, 10), IPAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE * IPAGE ♦ I 
WRITE (6, 155) 

155 FORMAT ( IH /) 

ITEMS * 0 

C PRINT AOORESS, NAME, AND VALUE OF EACH F VARIABLE SO 0ESIGNATE3. 

00 170 I = 1, 310 
IF non) .NE. 1) GO TO 170 

WRITE (6, 160) I, (NAHES(I,J), J = 1, 17), Ed) 

160 FORMAT (20X, 13, 3X, 17AA, 7X, F15.5) 

C STEP ITEM COUNT BY 1. 

ITEMS * ITEMS ♦ 1 
IF (ITEMS .LT. 53) GO TO 170 
WRITE (6, 70) (NAHE(J), J > 1 , 10), IPAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE > IPAGE * 1 
WRITE (6, 155) 

C RESET ITEM COUNT TO ZERO. 

ITEMS * 0 
170 C(3NT1NUE 

180 IF (Film * FI120) .EQ. 0.) GO TO 200 
IF (FUA8) .EQ. 1.01 GO TO 190 
WRITE <6, 220) 11(12) 

C SET LIME COUNT TO A5 

LINES » A5 
CO TO 2 - J 

190 WRITE (6, 70) (NAHEd), I > 1, 10), IPAGE 
WRITE (6, 50) 

C STEP PACE NUMBER BY 1. 

IPAGE > IPAGE * 1 
C SET LINE COUNT TO 10. 

LINES « 10 
O CO TO 230 

ERiC>0 (FIIAB) .EO. 1.0) GO TO 230 
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IF (LINES ,LT. 56) GO TO 210 
WRITE (6t 70) (NftHEm> 1 = It 10), IP&GE 
C STEP PAGE number BY 1. 

IPAGE * IPAGE ♦ 1 
210 WRITE (6, 220) 11(12) 

220 FORMAT ( IHO/ lOX, 17MR AND 0 COST = , 18) 

C FLOAT PAGE NUMBER. 

230 F( U6) s IPAGE 

IF (FI120) .EQ. 0.) GO TO 250 
DO 2A0 I = I, 310 
iD( n « 0 
2A0 CONTINUE 

250 IF (FUI9) .EQ. 0. .AND. F(148) . NE . 3.) RETURN 
C CLEAR ALL WEAPON SYSTEM INPUT VARIABLES IN COMMON. 

DO 260 I =< It 120 

Fin * 0. 

260 CONTINUE 

00 270 I = U2, UA 
F( I) = 0. 

F(I*75) = 0. 

270 CONTINUE 

F(135) * 0. 

HIA5) ■= 0. 

RETURN 

END 
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